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Cette fois-ci, c'est la dernière. Avec cette revue 
prend tin la longue lignée des Exelement-Vôtre. 
En guise d'adieu, nous avons regroupé au sein de 
ce numéro pas mal de sujets intéressants : 
animation de sprites, routines de synthèse vocale 
(K7 fournie) et bien d'autres choses encore. 
Pendant trois ans vous nous avez lus et vous 
n'avez pas manqué l'occasion de nous faire part 
de votre enthousiasme et, il est vrai, de votre 
mécontentement. Mais, comme se plaisait à dire 
Marivaux, sans la liberté de blâmer, il n'est point 
d'éloge flatteur. Aussi, dans un ultime numéro, 
nous allons vérifier l'assertion ci-contre écrite et 
essayer de vous transporter sur les sommets de la 
programmation; sommets qui ne sont certes pas 
enneigés mais qui se révèlent malgré tout 
glissants, lorsqu'après une dure journée de 
labeur, nos mains fébriles et tremblantes appuyent 
sur le petit bouton orange et que le fatidique 
bidibip retentit à nos oreilles d'apprentis 
programmeurs en même temps que l'écran azuré 
apparaît. Mais oui, je vous assure. Cette phrase 
était pour tous les ronchons qui maugréent jour et 
nuit après la revue, pensant qu'il serait plus 
Intéressant de passer dans le vif du sujet plutôt 
que de s'exercer à l'art, oh combien difficile, de la 
réthorique appliquée à l'informatique initiante. 
Pour vous en convaincre, essayez d'expliquer la 
gestion d'un fichier à votre épouse ou à votre 
géniteur ou à n'importe qui et vous verrez le 
résultat. 

Si les prophètes avaient été passionnés 
d'informatique. 

Tableau dantesque, vous êtes assis devant votre 
ordinateur préféré. L'été approche, la nuit est 
belle, constellée d'étoiles. Plus qu'une ligne à 
taper pour finir le programme. Soulagement, 
euphorie contrôlée, bref, sentiment que l'on a fini 
une rude tâche. La dernière instruction et .... 
Aiehhh !!! le cri retentit dans la nuit : le programme 
s'est planté, dur, dur, d'autant plus dur que vous 
avez oublié de faire une sauvegarde auparavant. 
Vous vous prenez la tête entre les mains, puis, 
c'est plus fort que vous, l'insulte doit sortir. P.... 

d'ordinateur, S de programme, M.... de revue. 

Non, ne dites pas le contraire, c'est une réaction 
typique. Vous n'avez pas lu la Bible du 
programmeur amateur et les tables de la foi de 
l'informatique. 



Or, if serait bon de rappeler ces lois: 

1 ■ Sauvegarde tu feras toutes les demi-heures 

2- Copie du programme tu réaliseras à chaque 
session 

3- Listing tu éditeras 

Dans la version originale, il en existe 10, mais ces 
trais dernières vous intéressent en premier lieu 
vu les répercussions néfastes que leur non 
respect peuvent générer dans votre biotope 
informatique. D'aucuns pourront dire que tout ça 
c'est de la prose. Loin s'en faut, dans ta suite de ce 
numéro, vous trouverez bon nombre de 
programmes faisant appel à des routines en 
assembleur. Routines que vos petites menottes 
devront taper. Et, sachez-le, la moindre erreur 
dans une routine assembleur entraine une 
succession d'actions incontrôlées et 
incontrôlables, bugs à cornes qui effacent l'écran, 
bugs à pattes qui ont la détestable manie de 
transformer votre écran en tableau de Vasarely, 
bugs volants dont les ravages ne sont pas 
répertoriés, et d'autres dont la légende ne précise 
pas si de vaillants programmeurs ont réchappé à la 
quête (du sacré octet, bien sûr) Etes-vous 
toujours prêts à poursuivre l'aventure ? Très bien, 
nous vous avions prévenus. Ce qui suit est 
réservé aux amateurs émérites qui ne rechignent 
pas devant 3 000 octets en assembleur ou 20 K 
en BASIC. 
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STARTREK 



"Rapport du capitaine Kirk, commandant de 
t'U.S.S entreprise. Coordonnées galactiques, 
quadrant 2/1, système d'Antares. En voulant 
ravitailler à la starbase ST001, nous avons affronté 
3 navires klingons. Devant la supériorité 
numérique, nous avons essayé de battre en 
retraite, surtout que les phasers étaient hors- 
service. Malheureusement les moteurs WARP 
furent touchés, nous coupant ainsi toute retraite. 
Nous avons utilisé les torpilles photoniques bien 
que l'ordinateur de bord ne fonctionnait qu'à 50% 
de ses capacités. Grâce à l'habileté de l'enseigne 
Checov, nous eûmes bientôt raison des navires 
klingons. C'est avec une capacité de manoeuvre 
réduite à 5% que nous rentrons à la starbase. 
Notre prochaine mission nous amènera dans le 
système d'Abéradan III où, dit-on, une importante 
armada kligonniène s'est rassemblée". 

Depuis vingt ans, les héros de la série télévisée 
STARTREK nous entraînent dans les 
profondeurs de la galaxie pour nous (aire 
découvrir des mondes toujours surprenants. 
Alors, pilotez l'Entreprise et détruisez les escadres 
klingonniènes. Ce jeu fut développé peu de 
temps après la sortie des feuilletons télévisés 
(Paramount Pictures Corporation). De nombreux 
étudiants en informatique des universités 
américaines ont programmé des jeux s'inspirant de 
STARTREK. La version proposée dans le présent 
numéro est améliorée par rapport à la version 
originale, notamment pour ce qui concerne 
l'affichage. STARTREK est un jeu de simulation 
particulièrement prenant car il demande une 
grande habileté stratégique. 




TOPOLOGIE 



STARTREK se joue dans l'espace. Pour 
représenter la galaxie, nous utiliserons une carte 
divisée en 8 x 8 secteurs soit au total 64 cases qui 
seront répertoriées dans un tableau, ces cases 
seront appelées des quadrants. 64 quadrants 
devront être explorés. Un groupe de quatre 
quadrants forme un système. Les 16 systèmes 
ainsi formés portent des noms. ANTARES, RIGEL, 
VEGA, CANOPUS, PROCYON suivis d'un chiffre 
romain I, II, III ou IV. Ainsi, le système d' ANTARES 
est nomenclature comme suit : ANTARES I, 
ANTARES II, ANTARES III et ANTARES IV. 

Distances 

Chaque quadrant mesure une unité 
astronomique. Chaque quadrant est lui-même 
divisé en 8 X 8 secteurs. Chaque secteur mesure 
0,1 unité astronomique. La position de l'entreprise 
sera donc donnée par une série de quatre 
coordonnées : Quadrant 1,1/ Secteur 1 / 1 par 
exemple. La navigation peut avoir lieu dans le 
cadran ou hors du cadran pour rejoindre une partie 
de l'espace. 

Calcul de la route galactique 

Pour pouvoir jouer avec un maximum d'efficacité à 
STARTREK, il est indispensable de bien maîtriser 
les lois de navigation interstellaire. L'entreprise 
peut se déplacer selon 8 principaux axes de 
direction. 



: 

4 


2 


6 


S 
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CARTE DE LA GALAXIE 





1 2 3 


4 5 6 


7 


8 


1 


ANTARES 
I II III 


IV 


SIRIUS 

II 


III 


IV 


2 


RIQEL 
I II III 


IV 


DENEB 
II 


III 


IV 


3 


PROCYON 
I II III 


IV 


CAPELLA 
II 


III 


IV 


4 


VEGA 
1 II III 


IV 


BETELGEUSE 
II 


III 


IV 


5 


CANOPUS 
1 II III 


IV 


ALBERADAN 
II 


III 


IV 


6 


ALTAIR 
1 II III 


IV 


REGULUS 
II 


III 


IV 


7 


SAGITTAIRE 
1 II III 


IV 


ARCTURUS 
II 


III 


IV 


8 


POLLUX 
1 II III 


IV 


EPI 
II 


III 


IV 



Ainsi, si l'Entreprise se trouve dans le quadrant 
3/3, nous pouvons en déduire que nous sommes 
dans le système PROCYON III. Avec un peu de 
pratique, il est relativement aisé de s'y reconnaître 
dans tous les quadrants et les secteurs. 

Comme nous l'avons dit un peu avant, l'Entreprise 
peut s'orienter selon 8 axes principaux. Les axes 
appelés routes dans le jeu sont répartis 
circulairement. Si vous pointez l'entreprise dans le 
quadrant 4/4 pour aller au quadrant 4/3, vous 
utiliserez la route 5. Si une route choisie entraîne 
l'entreprise hors de la galaxie, un message 
provenant du lieutenant Huhura (comme dans la 
série) s'affiche et l'entreprise est arrêtée dans le 
quadrant où le franchissement des limites de la 
galaxie aurait du avoir lieu. Bien entendu, il se peut 
que cette manoeuvre inconsidérée cause des 
dégâts matériels sur les différents organes 
sensibles de l'entreprise : contrôle des phasers, 
tubes photoniques et autres, ce qui, compte tenu 




des circonstances, peut s'avérer excessivement 
dangeureux, notamment lorsque des navires 
Klingons sont présents dans le quadrant. En 
résumé, la prudence est de rigueur pendant les 
phases de déplacement. 
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Exemple de choix de route 

A partir du tableau de la page précédente, nous 
allons placer l'Entreprise dans un quadrant 
particulier et nous allons envisager les différents 
déplacements. 




Si l'Entreprise est arrêtée dans le système de 
CANOPUS II, les différentes routes (avec un 
facteur WARP de 1 ) l'amèneront : 



-Route 1 


-> 


CANOPUS III 


-Route 2 


-> 


VEGA III 


-Route 3 


•> 


VEGA II 


-Roule 4 


-> 


VEGAI 


-Route 5 


-> 


CANOPUS I 


-Route 6 


-> 


ALTAIR I 


-Route 7 


-> 


ALTAIR II 


-Route 8 


-> 


ALTAIR t!l 



Les différentes commandes disponibles 

Dans STARTREK, vous êtes le capitaine KIRK et 
vous êtes au commandement de l'Entreprise. Le 
but du jeu est de débarrasser la galaxie des 
escadres Klingonniènes. Lorsque le jeu est lancé, 
après une période d'initialisation qui dure environ 
quinze à vingt secondes, une fenêtre contenant 
les ordres de la mission s'affiche dans la partie 
supérieure de l'écran. 



Les destinations seront effectivement atteintes si 
l'Entreprise ne rencontre aucune étoile, aucune 
starbase ou aucun vaisseau Klingon qui couperait 
sa route. 
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Voici vos ordres : 

Détruisez les 82 vaisseaux Kllngons 

Stardate : 2883 

Durée de la mission . 83 jours 

Nombre de la starbase : 1 



Pour continuer le jeu, vous devez appuyer sur la 
touche [ENVOI]. Lorsque cette touche est 
appuyée, récran est effacé et une nouvelle 
fenêtre est affichée dans la partie inférieure de 
l'écran. Cette fenêtre indique la position de 
l'Entreprise au début du jeu. 



POSITION : 
Q.G : RIGEL IV 



Attention : ces valeurs sont purement indicatives. 
La position, le nombre de vaisseaux Klingons, le 
nombre de starbases ainsi que la stardate sont 
choisis aléatoirement suivant une fonction étudiée 
à cet effet. A ce sujet, la dernière fenêtre affichée 
peut contenir un autre message : 



VOUS ENTREZ DANS 
ALBEDARAN III 



Cette dernière fenêtre peut être affichée lorsque 
l'Entreprise aborde la périphérie d'un quadrant. 
Après l'affichage de l'une ou l'autre fenêtre, 
appuyez sur la touche [ENVOI] 



Pour manoeuvrer l'Entreprise, vous disposez c 
commandes suivantes : 



NAV 


> 


Route 


SRS 


> 


Exploration d'un quadrant 


LRS 


> 


Exploration de 8 quadrants 


PHA 


> 


Tir des phasers 


TOR 


> 


Tir des torpilles 


SHE 


> 


Réglage des boucliers 


DAM 


> 


Rapport des avaries 


COM 


> 


Accès à l'ordinateur 


XXX 


> 


Abandon de la mission 



La commande NAV 

La commande NAV permet de choisir un cap 
(route de à 9) et de fixer la vitesse de parcours 
(facteur WARP de à 9). En fonction de la vitesse 
choisie, le temps s'écoulera plus ou moins 
rapidement. N'oublions pas qu'une vitesse 
supérieure à 1 est une vitesse relativiste et donc 
que l'univers et le temps possèdent des 
propriétés particulières. Une vitesse (facteur 
WARP) de 1 correspond au déplacement d'un 
quadrant. Par conséquent, une vitesse de 5 
correspond à un déplacement de 5 quadrants. De 
même, une vitesse de 0,1 correspond à un 
déplacement d'une unité de secteur. Les vitesses 
inférieures à 1 sont utilisées pour naviguer â 
l'intérieur d'un quadrant. Mais il se peut que, au 
cours du jeu, vous ne soyez pas en mesure de 
dépasser le facteur WARP 0,2 car une avarie des 
moteurs vous empêche d'aller plus vite. De toutes 

m, 




les manières, un rapport émanant du lieutenant 
Sulu (mauvaise navigation) ou de l'ingénieur en 
chef Scott (salle des machines) vous avertira de 
toute irrégularité. 

Exemple : si l'Entreprise se trouve dans le 
quadrant 2 / 3 - secteur 2 / 6, un cap à 3 et un 
facteur WARP de 1 ramèneront dans le quadrant 1 
/ 3 - secteur 2/6 (sous réserve que rien ne l'en 
empêche). 




La commande SRS (Short Range Sensor) 

La commande SRS permet d'obtenir une 
exploration du quadrant galactique où se trouve 
l'Entreprise. Le résultat de cette exploration est 
affiché en permanence dans une fenêtre située 
dans la partie supérieure de l'écran. Les étoiles, 
les starbases, tes vaisseaux klingons , l'Entreprise 
sont représentés. N'oubliez pas q'un quadrant 
galactique mesure 8x8 unités de secteur. 




ENTREPRISE 
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6 fonctions sont disponibles après l'activât ion de la 
commande COM. 



0- Enregistre ment galactique 
1 -Rapport de situation 
2-Données torpilles 
3-Données navigation starbases 
4-Calcul de direction et distance 
5-Carte de la galaxie 



L'accès à ces fonctions se réalise en tapant le 
numéro correspondant suivi de la touche 
[ENVOI]. 



Enregistrement galactique (cumulé) 

Cette fonction, après activation, affiche un relevé 
de tous les quadrants qui ont été explorés par 
l'Entreprise ou qui ont été observés à l'aide du 
LRS (senseurs longue distance). 



Les informations contenues dans ce relevé sont 
de même nature que celles données par une 
exploration LRS, à savoir un codage sur trois 

chiffres (ce ntaine^- nombre vaisseaux Klingons. 
dizaine= nombre de starbases, unités=nombre 
d'étoiles). 





1 


2 


3 


4 


5 


6 


7 


8 


1 


... 


... 


... 


... 


005 


105 


101 


... 


2 




... 


... 




001 


201 


007 


... 


3 


... 


„. 


... 




311 


211 


012 


... 


4 




... 


... 


... 


... 


... 


„. 


... 


5 


... 


... 


... 




... 


... 


... 


... 


6 


... 




... 


... 


... 


... 


... 


... 


7 




... 


... 


... 


.- 


.„ 


... 


... 


8 




... 


... 


... 


... 


„. 


... 


... 
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Dans ce dernier cas, l'affichage du SRS est 
modifié et le navire Klingon détruit disparaît du 
quadrant. Ceci est également valable pour la 
destruction d'un navire Klingon à l'aide d'une 
torpille photonique. 



Les dommages causés par la 
Klingonniène sont ensuite affichés. Un premier 
message annonce les unités d'énergie radiante 
qui ont frappé l'Entreprise ainsi que le niveau 
d'énergie du bouclier de l'Entreprise après 
absorbtion du tir. 

<125 unités provenant du secteur 3/3> 
<Bouclier à 520 unités > 

Un deuxième message peut être affiché si le tir a 
causé des dégâts dans l'infrastructure de 
l'Entreprise. Ces dégâts peuvent porter sur le 
contrôle du bouclier, les phasers, les tubes 
photoniques, le moteur, l'ordinateur, les senseurs 
grande ou courte distance, le rapport d'avaries. 

Les dégâts les plus pénalisants sont sans doute 
ceux qui touchent les phasers et le SRS. Sans 
SRS, il est impossible d'avoir une vision claire de la 
situation. Sans les phasers, il est impossible de 
soutenir le combat. En effet, les torpilles sont 
utiles lorsque leurs trajectoires sont évidentes, et 
puis, l'énergie qu'elles véhiculent peut être 
absorbée par une étoile. 



La commande DAM 

Cette commande, lorsqu'elle est activée permet 
d'afficher le rapport des avaries. Très utile après 
une bataille, ce rapport renseigne le capitaine Kirk 
sur l'état de l'Entreprise. 



MOTEUR WARP 





SRS 





LRS 





CONTROLE PHASER 





TUBES PHOTONIQUES 





CONTROLE D'AVARIE 





CONTROLE D'ECRAN 





LIBRAIRIE ORDINATEUR 






Lorsque tous les paramétres sont à zéro, 
l'Entreprise est opérationnelle à 100%. Lorsque 
les paramètres sont différents de zéro, ceci 
indique que les fonctions associées {phasers, 
WARP, etc..) de l'Entreprise sont 

endommagées. 

Les réparations sont effectuées contaminent par 
les mécaniciens de l'Entreprise. L'état des 
réparations est affiché sans en faire la demande au 
cours du jeu entre deux commandes ou pendant 
l'exécution d'une commande. 



Réparation dans une starbase 

Si l'Entreprise a été gravement endommagée ou 
si le niveau énergétique est faible, vous pouvez 
rallier une starbase est refaire le plein d'énergie et 
de torpilles et procéder à une réfection complète. 
Dans ce cas, les servants de la starbase vous 
fournissent un plan de réparation avec les délais. 
Attention, ces délais peuvent vous pénaliser pour 
la suite de votre mission. 



Entrée dans une starbase 



L'accostage à une starbase se réalise de manière 
automatique lorsque l'Entreprise gravite dans un 
rayon de 0,1 secteur autour de la starbase. La 
starbase protège l'Entreprise de toute attaque 
klingonniène. 



Vous pouvez Ôtre réduit, pour gagner du temps, à 
détruire une starbase mais cet acte vous sera 
imputé par la suite et vous pénalisera. 

La commande COM 

La commande COM est une commande 
importante car elle autorise l'accès à l'ordinateur de 
bord qui vous aide dans bien des cas à calculer 
une route pour l'Entreprise, calculer la navigation 
pour atteindre une starbase et bien d'autres 
choses encore... 
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Après l'introduction de la route de la torpille, la 
trajectoire est affichée sous forme de 
coordonnées X, Y. Des éléments peuvent 
intervenir pour fausser la trajectoire de la torpille. 
C'est le cas notamment des étoiles qui peuvent 
annuler l'énergie de la torpille. La torpille atteint 
l'objectif ou le manque. Dans les deux cas, le 
résultat est affiché. Si une torpille atteint sans 
problème un navire Klingon, ce dernier est détruit. 

La route des torpilles peut être calculée 
automatiquement par l'ordinateur de bord, sous 
réserve qu'il ne soit pas endommagé. Cette 
possibilité est décrite un peu plus loin. 



La commande SHE 

Cette commande, lorsqu'elle est activée permet 
d'affecter des unités d'énergie au bouclier. Le 
bouclier est un écran énergétique qui a pour 
fonction d'absorber l'énergie radiante provenant 
des phasers Klingonntens. Si le bouclier n'est pas 
alimenté en énergie, le premier tir Klingon détruira 
l'entreprise. Le niveau minimal d'énergie affectée 
au bouclier lorsque l'Entreprise aborde une zone 
de combat est de 200 unités. 

L'affectation d'unités d'énergie au bouclier est 
une opération primordiale qui doit être effectuée 
avant toute manoeuvre. Les unités d'énergie qui 
seront affectées au bouclier sont dépendantes de 
l'énergie totale de l'Entreprise. Ainsi, si 
l'Entreprise dispose à un instant donné de 2000 
unités, uniquement 2000 unités pourront être 
affectées au plus dans le bouclier. L'énergie 
affectée au bouclier peut être utilisée par la salle 
des machines en cas de pénurie d'énergie. Ceci 
n'est pas valable pour les phasers qui utilisent 
toute l'énergie qui leur a été fournie. Il se peut 
qu'au cours de la bataille, les contrôles du bouclier 
soient endommagés, cela peut alors s'avérer fatal 
pour l'Entreprise car en fonction de l'intensité des 
tirs ennemis, le bouclier peut brusquement 
s'effondrer et vous n'avez aucun recours pour 
pallier à cette éventualité. Par prudence, il vaut 
mieux affecter une grande quantité d'énergie au 
bouclier quitte à ce que l'énergie disponible pour 
les phasers soit moindre. Tous les rescapés de la 
bataille de Bételgeuse vous le diront. 



Les phases de combat 

Lorsque l'Entreprise aborde une zone de combat, 
un message est affiché en mode clignotant. Si le 
bouclier dispose de moins de 200 unités 
d'énergie, un message le signale. C'est 
l'Entreprise qui engage la phase d'hostilité. 
Ensuite, les Klingons, s'il en reste, répliquent. La 
riposte des klingons intervient juste après les 
salves de l'Entreprise ou après une manoeuvre de 
l'Entreprise (changement de position). Les 
commandes comme l'accès à l'ordinateur de bord, 
le réglage du bouclier, la demande du rapport 
d'avarie n'entraînent pas de riposte. 

Le choix des armes 

Question délicate, surtout que dans certains cas, 
suite à des avaries vous ne pouvez utiliser q'un 
type d'amie (phaser ou torpille). Parfois même, 
vous ne pouvez même pas attaquer car les tubes 
photoniques et les phasers sont hors-service. 
Dans ce cas, il faut espérer que les tirs Klingons ne 
soient pas appuyés. 

Si l'Entreprise dispose de toutes ses potentialités 
d'attaque et en fonction du nombre de navires 
Klingons présents dans le quadrant, il vaut mieux 
utiliser les phasers. En effet, bien que ceux-ci 
soient gourmands en énergie, ils diminuent la 
capacité de riposte de l'ennemi. Si un seul 
vaisseau klingon est présent dans le quadrant et si 
sa position est alignée sur les huit axes principaux 
de route, il vaut mieux utiliser une torpille 
photonique. 

Résultat d'une phase de combat 

Après le tir des phasers ou d'une torpille, 
l'ordinateur de bord vous informe des dégâts 
subis par l'adversaire par des messages du style : 

«108 unités sur vaisseau en 3/3 > 
Senseurs montrent qu'il reste 
23 unités en 3/3 

Ou alors 

+++KL1NGON DETRUIT+++ 
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La commande PHA 

La commande PHA active les phasers. Les 
phasers sont des armes à rayonnement qui 
utilisent l'énergie de l'Entreprise. Cette 
commande doit être activée uniquement dans une 
zone de combat. Un message de monsieur Spock 
vous avertira lorsque vous tenterez d'utiliser les 
phasers en dehors d'une zone de combat. 
Lorsque la commande PHA est activée deux cas 
peuvent se produire : 

-l'ordinateur de bord est en état de marche. Dans 
ce cas le message PHASERS VEROUILLES SUR 
OBJECTIF est affiché. 

-l'ordinateur est endommagé. Dans ce cas, le 
message ORDINATEUR ENDOMMAGE, 

PRECISION DIMINUEE est affiché. 

Après l'apparition de l'un ou l'autre message, 
l'ordinateur vous demande l'introduction du 
nombre d'unités d'énergie que vous désirez 
affecter aux phasers. L'énergie disponible est 
affichée. Attention, n'affectez pas toute l'énergie 
aux phasers sous risque de perdre corps et biens 
l'Entreprise dans l'espace. Vous devez garder une 
réserve d'énergie suffisante pour rallier une 
starbase ou un autre système en cas de 
problèmes. Une fois l'énergie affectée aux 
phasers, cette dernière est répartie sur les 
différentes cibles ennemies. Cette répartition 
s'effectue de manière automatique, et vous n'avez 
pas besoin de donner d'informations 
supplémentaires. Les phasers peuvent être pour 
un temps indisponibles suite à une avarie. Les tirs 
des phasers peuvent être mortels pour l'ennemi, 
l'endommager partiellement ou pas du tout. Cela 
dépend du degré de protection des navires 
Klingons, de la distance séparant l'Entreprise qe 
l'objectif, etc.. 

La commande TOR 

Les torpilles photoniques constituent une autre 
arme dans votre potentiel d'attaque. Vous avez 
une réserve de 10 torpilles photoniques. A 
contrario des phasers, lorsqu'une torpille atteint 
son but, l'effet est dévastateur et le navire Klingon 
est détruit. Mais, les torpilles photoniques doivent 
être guidées sur l'objectif. Lorsque la commande 
TOR est activée, l'ordinateur de bord vous 
demande la trajectoire de la torpille. Les 



trajectoires des torpilles obéissent aux mêmes 
règles de navigation que l'Entreprise, à savoir que 
huit caps principaux peuvent être affectés à la 
route de la torpille. 

Le choix du cap peut être effectué visuellement 
en observant l'anlyse SRS (affichage permanent 
sauf en cas d'avarie). Pour cela, il suffit de 
regarder la position de l'entreprise puis ta position 
du vaisseau Klingon et d'en déduire la route de la 
torpille. 




Dans le cadre de combat simulé ci-dessus, la route 
de la torpille est la route 8. Bien entendu, cette 
route peut être plus drfficle à déterminer. En effet, 
cette route peut prendre la valeur 5,658427 ou 
autre. 
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Les étoiles sont représentées par des *. Le 
résultat de l'exploration SRS est pratiquement 
indispensable car il permet de visualiser la position 
des navires Klingons, des starbases et des 
étoiles. Malheureusement, la fonction SRS peut 
être indisponible si après une bataille ou une 
mauvaise navigation les senseurs sont 
endommagés. Dans ce cas, l'affichage de la 
représentation du quadrant est inhibé. En même 
temps que la représentation d'un quadrant, une 
série d'informations est disposée à droite de 
l'écran. Ces informations sont les suivantes : 



STARJOUR : 


3701 


CONDITION : 


RED 


QUADRANT : 


1/3 


SECTEUR : 


6/8 


TOR.PHOTO : 


10 


ENERGIE : 


2705 


ECRANS : 


245 


KLINGONS : 


62 



Il existe trois conditions : la condition rouge : 
pendant une bataille, la condition verte si aucun 
Klingon n'est repéré dans le quadrant, la condition 
jaune lorsque l'Entreprise est en radoub dans une 



Vous disposez d'un stock de 1 torpilles 
photoniques. Ce stock diminue tors de l'utilisation 
des tubes lance-torpilles. Après passage dans 
une starbase, le plein de torpilles est effectué. 



Les informations relatives au quadrant et au 
secteur sont utiles pour se repérer. 

Les informations relatives à l'énergie totale 
disponible et à l'énergie affectée au bouclier 
doivent être constamment consultées. En effet, 
au départ du jeu, l'Entreprise possède une 
énergie de 3000 unités. Le déplacement , les 
phasers, le bouclier utilisent cette énergie. Au 
bout de quelques explorations et surtout après 
avoir utilisé les phasers, cette énergie peut 
devenir voisine de zéro, auquel cas, il vous faudra 
trouver une starbase très rapidement sous peine 



de faire naufrage. Les phasers sont très 
gourmands en énergie, alors prudence. 



La commande LRS (Long Range Sensor) 

Cette commande permet d'explorer les huit 
quadrants adjacents au quadrant où est située 
l'Entreprise. Cette commande, lorsqu'elle est 
activée affiche les données relatives à l'exploraion 
des quadrants de la manière suivante : 





+++ANALYSE LRS QUADRANT+++ 
1/3 






... 


... 






1 


203 


7 


104 


1 


315 









Exploitation des données 

Les renseignements sur un quadrant galactique 
sont codés sur trois chiffres. Le chiffre des 
centaines représente le nombre de vaisseaux 
Klingons, le nombre des dizaines représente le 
nombre de starbases, le chiffre des unités 
représente le nombre d'étoiles. Trois étoiles 
signifient qu'il n'y a plus de quadrant à explorer ( 
quadrant contenant l'Entreprise sur les bords de la 
galaxie) . Le quadrant qui contient l'Entreprise est 
situé au milieu de l'analyse LRS, ici sur fond gris. 

A la lumière de ces renseignements nous savons 
que dans le quadrant 1/2 il y a une étoile, que 
dans le quadrant 2/2 il y a un vaisseau Klingon et 
une étoile, que dans le quadrant 2/4 il y a 3 
vaisseaux Klingons, une starbase et 5 étoiles. 

Pour effacer l'analyse LRS, il suffit d'appuyer sur la 
touche [ENVOI]. 
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Rapport de situation 

Cette fonction permet d'obtenir le rapport de 
situation indiquant le temps de la mission et le 
nombre de vaisseaux Klingons restant à détruire. 



Données torpilles 

Cette fonction calcule la direction des torpilles 
pour les différents objectifs. La direction est 
fournie pour chaque navire Ktingon. Appuyez sur 
la touche [ENVOI] pour obtenir l'affichage d'une 
autre direction. 

Données navigation pour starbases 

Cette fonction fournit la distance et la direction de 
la plus proche starbase. 

Calcul direction et route 

Cette fonction permet de calculer la distance et la 
direction qui sépare le quadrant où se trouve 



l'Entreprise d'un autre quadrant dont les 
coordonnées sont fournies par l'utilisateur. 

Ainsi, si l'Entreprise se trouve dans le quadrant 1/5 
et si vous désirez rallier le quadrant 3 / 6, vous 
obtiendrez tes résultats suivants : 

CALCULS DIRECTION / DISTANCE 

Vous êtes dans le quadrant : 1/5 secteur : 5/7 
Coordonnées initiales (X,Y) 

X=1 [ENVOI] Y=7 [ENVOI] 

Coordonnées finales (X, Y) 

X=3 [ENVOI] Y=6 [ENVOI] 

DIRECTION = 6,5 
DISTANCE = 2,236067978 



La commande XXX 



Si vous ne vous sentez pas le courage de 
continuer votre mission .... 



STAR 



T R E K 



i CL-5 "WbB":CALL COLOR ( "OWb " ) : LDCATE 

i | ****#*«»# DE BUT JEU***w#»##** »****#* 

' CALL COLOR ("OMI..H") 

i LOCATE (9, 13) iFRINT "SSTTAARRTTRREEKK" 

1 LOCATE (10,13) tPRINT "SSTTAARRTTRREEKK" 

■ RANDOMIZE 

■ CALL COLOR ("OCB" ): LOCATE (12,10) 
Z*=>" 

' DIM G(B,B) ,C<9,2) ,K<3,3) ,N<3> ,Z (B,B) ,D(B) 

' T=INT(RND*2Û+20>*lOO:T0=T:T9=25+INTRND(10> 

i P=10:P0=F: 59=200: S=0: B9=0:K9=0: X*=""! X0*«" 



SPRINT RPT*( 



iïE = 3000:E0=E 



240 
250 




260 


! 


270 


CALL FR(PARA1,Q1) 


zao 


PARA1=1:CALL _FR<PARA1,Q2 


■J.90 


PARA1=1:CALL FR (PARAI ,51 


300 


PARA1 = 1:CALL FR (PARAI, S2 


310 


GOSUB 5600 


320 


FOR 1=1 TO 9:C(I,1)-0:C(I 


330 


C(3,l)=-liC(2,l)=-l:C(4,l 


340 


C(l,2)"l:C(2,2)=liC(6,l)= 



2)=0:NEXT I 

— l:C(4,2)=-l:C(a,2)=-l!C(6,2)=-l 
iC(7,l>=l:C(B,l)=!tC<8,2)=l:C<9,2>: 
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350 

zao 

370 
3BO 
390 
400 
410 
420 
430 
440 
450 



520 
530 
540 

55.:- 

560 
570 
580 
590 

600 



FDR 1=1 TO 8:D<I)=0:NEXT I 
Al*="NA>?SRSLRSPHATORSHEDAMCDh'XXX" 

=1 TQ 8:FDR J=l TQ B: K3=0: Z ( I , J) 
>.75 THEN K3=3;K9=K9+3:G0T0 410 
>.65 THEN K3=2:K9=K9+2sG0T0 410 
>.5 THEN K3=1:K9=K9+1 
IF RND>.86 THEN B3=1:B9=B9-M 



FDR I 
IF RI 
IF RI 
IF RI 
B3=0: 
PARA1 = 
CALL . 
G(I,J 
IF B9' 
IF G 



1 

FR< PARAI ,WW1) 

=K3*100+B3*IO+WWlîNEXT JsNEXT 

>0 THEN 510 
01,02X200 THEN G (Ql ,Q2) =G (01 ■ P' 
G(Q1,02)=G(01 ,Q2)+10 
=1:CALL _FR(PARA1.01> 
=1jCALL _PR(PARA1,Q2) 

:"S":XD*-" V A 



IF K9>T9 THEN T<?=K9+1 



+100:K9=K9+1 



LOCATE (2,2) 
LOCATE (3,2) 
LOCATE (4,2) 
LQCATE (5,2) 
LQCATE (6,2) 
PAUSE :CLS 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



'Détruises le 
'STARDATE : " 
'Durée de la 
'Nombre de st 



610 Z4=D1: ZS=Q2:K3=0:B3=0:S3=0:G5=0:D4=RND*.5: Z (01 , Q2) =G (01 , 02) 

620 IF DK1 OR 01 >8 QR Q2< 1 OR Q2>8 THEN 820 

630 GOSUB 5250: IF TOOT THEN 710 

640 GOSUB 6090 

650 CALL COLORC'OCH") 

660 LDCATE ( 12, 10) : PRINT "POSITION : " 

670 LOCATE ( 13, 10) : PRINT "POSITION : " 

680 LOCATE (17,3):PRINT "Q.G : ";B2* 

690 LQCATE (18,3):PRINT "Q.G : " i G2* 

700 CALL CDLQR ( "OGB" ): PAUSE: GOTO 740 

710 CALL COLQRCOYH") : LDCATE (17,2):PRINT "RENTREE DANS : "1G2* 

720 LQCATE (18,2): PRINT "RENTREE DANS : ";S2* 

730 CALL C0L0R("0G8"> : PAUSE 

740 K3=INT(G(G1 ,02)*. 01) i B3=INT<G (Ql ,02) *. 1)-10*K3 

750 FOR 1=1 TQ B:LDCATE ( I +1 1 , 2) : PRINT RPT*(" ",38)!NEXT I 

760 S3=G(Ql,Q2)-lOO#K3-10*B3: IF K3=0 THEN 810 

77G LOCATE ( 15, 14) : CALL COLOR ( " 1RIF" ) 

780 PRINT "ZONE DE COMBAT" 

790 LOCATE ( 17, 13) : PRINT "Condition rouge":IF S>200 THEN 810 

800 LQCATE ( 19, 14) : PRINT "Ecran minimal" 

810 FOR 1=1 TQ 3:K<I,l)=O:K!I,2)=0:NEXT I 

820 FOR 1 = 1 TO 3iK(I,3)=0:NEXT 1 : 0*-Z*Ï.Z*S l Z*8.Z*ScZ*î<Z#&Z*î<SEG* CZ*, 1 , 



7) 



340 A*=CHR*(50)&CHR*(51>fcCHR*<52> : Z1=S1: Z2=S2:G0SUB 5060: IF K3< 1 THEN 870 

850 FOR 1=1 TQ K3:G0SUB 5020: A*=CHR* (53>&CHR*<34>StCHR*(55) : Z1=R1 : Z2-R2 

860 GOSUB 5060:K(I,1)=R1:K(I,2)=R2:K<I,3)=S9*(.5+RND> tNEXT I 

870 IF B3<1 THEN 890 

8B0 GOSUB 5020:A*=CHR*(56)&CHR*(57)&CHR*(5B):Z1=R1:B4=R1.:Z2=R2:B5=R2:G0SUB 5060 

890 FOR 1=1 TO S3iG0SUB 5020:A*=" * "i Z I=R1 i Z2=R2îG0SUB 5060:NEXT I 

900 -! 

910. GOSUB 3870 

920 IF E+SMO THEN IF E>10 OR D<7)=0 THEN 980 

930 CALL CDLQR ("OCB") : LDCATE (12,10) 

940 PRINT "++++Erreur fatale++++" 

950 LDCATE (15,2) : 

960 PRINT "Votre énergie est trop faible" 

970 GOTO 3740 
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PRINT 


"NAV=route 


PRINT 


"SRS=scanners cour 


PRINT 


'LRS=scanners 1 ong 


PRINT 


"PHA=tir des phase 


PRINT 


'TQR=torpilles pho 


PRINT 


'SHE=réalage boucl 


PRINT 


'DAM=compte rendu 


PRINT 


'CDM=librairie ord 


PRINT 


'XXX=abandon mi ssi 



980 GOSUB 6260: GOSUB 55B0 

990 CALL COLORC'OGB") iLOCATE <12,2>:PRINT "Commande j "; 

1000 ACCEPT BEEP VALIDATE (ALPHANUM) SUE (-3) , A* 

1010 FOR 1=1 TO 9: IF SEB* (A*, 1 ,3) OSEGS (Al*, 3*1-2, 3» THEN 1030 

1020 ON I GOTO 1160,910,2090,2280,2730,3170,3300,4130,3770 

1030 NEXT I 

1040 FOR I=l"TD 8:L0CATE ( 1+1 1 , 3) ! PRI NT RPT* ( " ",30>:NEXT I 

1050 GOSUB 6260: CALL COLÛR ( "ORb " > 

1060 LDCATE (12,7) 

1070 LDCATE <I3,7) 

1080 LOCATE C14,7) 

1090 LOCATE (15,7) 

1100 LDCATE (16,7) 

1110 LDCATE (17,7) 

1120 LDCATE (18, 7> 

1130 LOCATE (19,7) : 

1140 LOCATE (20,7):PRINT "XXX=abandon mission ":CALL COLORC'OGB" 

1150 PAUSE: GOTO 920 

1160 LDCATE (13,2):PRINT "ROUTE (0-9) :"! 

1170 ACCEPT BEEP VAL IDATE (NUMERIC) SI ZE (- 10 ) ; Cl : IF Cl=9 THEN Cl = l 

1180 IF C1>=1 AND Cl<9 THEN'1230 

1190 CALL COLDRC'OCB") 

1200 LDCATE (15,2):PRINT "RAPPORT DU Lt SULU ! " 

1210 LDCATE !16,2):PRINT "Erreur de navigation " 

1220 CALL COLORC'OGB") : PAUSE 1.3:G0TD 920 

1230 X*="B":IF D<1><0 THEN XS=".2" 

1240 LDCATE (I3,2):PRINT "FACTEUR WARP (0-"ïX*;")"; 

1250 ACCEPT BEEP VALIDATE (NUMERIC) SUE t-lû) ï WI 

1260 IFDI1KÛ AND W1>.2~THEN 132Ô 

1270 IF W1>0 AND WK-8 THEN 1350 

1280 IF W1=0 THEN 920 

1290 CALL COLGR<"OCB"):LODATE (16,2) : PRINT 

1300 LOCATE (17,2) îPRINT "Les moteurs ne peu' 

1310 CALL CDLOR ( "OGB" ): PAUSE 1.5:GDT0 920 
1320 CALL COLDRC'OCB") : LOCATE (15,2) 

1330 PRINT "Avarie moteurs WARP/vi tesse maxi:0.2" 
1340 CALL COLORC'OGB") : PAUSE 1 . 5s GOTD 920 

1350 Nl = INT(Uil*8+.5) : IF E-N1>=0 THEN 1450 

1360 CALL COLDRC'OCB") : LOCATE (15,2) 

1370 PRINT "SALLE DES MACHINES " 

1380 LOCATE (16,2):PRINT "Energie insuffisante ": 

1390 PRINT "pour manoeuvrer à ";W1:CALI nni p.r c'ORR" i . paiirf j.b 

1>400 IF S<N1-E OR D(7><0 THEN 920 

1410 CALL COLDRC'OCB" ): LOCATE I IS.?) ■ PRTNT "=.ÛP I F TIF mNTRni F DFFI FHTFI 1RS 

1420 LOCATE (16,2) 

1430 PRINT S; ".unités énergétiques a-f-fectées aux écrans" 

1440 CALL COLORC'OGB") : PAUSE 1. S: GOTD 920 

1450 GOSUB 6260:FQR 1=1 TO K3î IF K(I,3>=0 THEN 1480 

1460 A*=" ":Z1=K(I,1) :Z2=K(I,2) : GOSUB 5060:G0SUB S020 

1470 K(I,l!=Zl:K(I,2)=Z2!A*=CHR:f (53)&CHR$(54)Ï.CHR*(55) ! GOSUB 5060 

1480 NEXT I: GOSUB 3510: D1=0: D6=W1 : (F W1>=1 THEN D6=l 

1490 FOR 1=1 TO-SsIF D ( I ) >=0 THEN 1560 

1500 D(I)=D(I)+D6: IF D(I)>-.1 AND 0(1X0 THEN D ( I ) =-. 1 îGOTO 1560 

1510 IF DCIXO THEN 1560 

1520 IF DKM THEN Dl = liCALL CDLOR ( "OCB" ): LOCATE (12,10) 

1530 GOSUB 6260:L0CATE ( 12, 10) : PRINT "CONTROLE D'AVARIES :" 

1540 Rl=l!GOSUB 5130:L0CATE (14,2):PRINT G2* 

1550 LOCATE I15,2):PRINT "Réparations terminées": PAUSE 1.5 

1560 NEXT I:CALL COLOR ( "O0B" >: GOSUB 6260: IF RND>.2 THEN 1690 

1570" PARA1 = 1:CALL _FR (PARAI , RI ) 

1 580 ' 

1590 ! 

1600 IF RND>=.6 THEN 1650 
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1610 D(R1>=D<R1!-<RND*5+1>:G0SUB 6260: CALL CDLOR ( "OGB" ) : LOCATE (12,2! 

162H PRINT "CONTROLE D'AVARIES REND COMPTE :" 

1630 GOSUB 5130:L0CATE (13,2):PRINT G2S; " Endommagé" :PAUSE 1.5:G0SUB 6^6u 

1640 GOTO 1690 

i65n D(R1>=D<R1H-RND»3+1:L0CATE l 12,2) : CALL CDLORC'OCB") 

1660 PRINT "CONTROLE D'AVARIES REND COMPTE" 

1670 GOSUB 5130:LÛCATE (13,2):PRINT G2*f " réparations avancent" 

16SO CALL COLOR ( "OGB" ): PAUSE 1.5:B0SUB 6260 

1690 Aî=" ":Zl=INT(Si> : Z2=INT(S2) : GOSUB 5060 

17O0 Xl=C(CI,l)+(C<CH-l,l>-CiCl,l>>*(Cl-INT<Cl>):X=Sl:Y=52 

1710 X2=C(C1,2>+(CIC1+1,2>-C(C1,2))*<C1-INT(C1>>:Q4=01:Q5=G2 

1720 FOR 1 = 1 TO Nl:Sl=Sl-<-Xl:S2=S2 + X2 

1730 IF SlfO OR Sl>=9 OR S2< 1 OR S2>=9 THEN 1850 

174û sa=ABS(INT(Sl)»24+INT(52)*3-26J:IF SES* <0*,S8,2> =" " THEN 1790 

1760 Sl=INr<Sl-Xl>:S2:=INT<S2-X2>:CALL COLOR ( "OCB" ): LOCATE 112,21 

1770 PRINT "MOTEUR WARP ARRETES DANS LE SECTEUR :": LOCATE (13,2) 

1780 PRINT Slî'V"!S2;" CAUSE MAUVAISE NAVIGATION" : GOTO 1B00 

1T90 NEXT I iSl=INT(Sl) :S2=INT(S2) 

1900 A*=CHR*[SOÏ&CHR*C51>fcCHR*(52):Zi=INT(Si).Z2-lNT(S2),B£3SUB 5060:G0SUB 2O^0 

1810 TB=1 

1B20 IF WK1 THEN T8=. 1*INT < 10*W1 > 

1830 T=T+T8:IF T>T0+T9 THEN 3740 

1850 x°8*Dl+X+Nl#)(l:Y=B*a2+Y+N!*X2:Ql=INT(X/81:D2=INT(Y/8! :S1=INT<X-Q1*B) 

1860 S2=INT<Y-Q2*8):IF Sl-Û THEN Qi=Ql-l : Sl=a 

1870 IF S2=0 THEN Q2=Q2_1:S2=8 

1B80 X5=0:IF QK1 THEN X5-1 : Ql = l : Sl = l 

1B90 IF Ql>8 THEN X5=l : 01=8: 31=8 

1900 IF Q2<1 THEN X5=l : Q2=l : S2=l 

1910 IF B2>8 THEN X5=l : 02=8: S2=B 

1920 IF X5-0 THEN 2010 

1930 CALL COLOR ("OCB"): LOCATE (12,2) 

1940 PRINT "RAPPORT Lt HUHURA :":LOCATE (13,2) 

1950 PRINT "Interdiction franchir limites galaaie" : LOCATE (14,2) 

1960 PRINT "RAPPORT INGÉNIEUR SCOTT :": LOCATE (15,2) 

1970 PRINT "moteur coupés :":LOCATE (16,2) 

1980 PRINT "Secteur : ";:PRINT USING"#/#" ; SI ï S2: LOCATE (17,2) 

! 991-1 PRINT "Quadrant : "ïsPRINT USING"#/#" ;G1 i 02 

2000 CALL COLOR("OGB"!:PAUSE l.SiGDSUB 6230: IF T>T0+T9 THEN 3740 

2010 IF a»GH-Q2=a»Q4+Q5 THEN 1800 

2020 T=T+1: GOSUB 2030: GOTO 610 

2030 E=E-N1-10:IF E>-0 THEN RETURN 

2040 GOSUB 6260:CALL COLOR ( "OCB" ): LOCATE (12,2) 

2050 PRINT "Contrôle écran fournit energi e": CALL COLOR ( "OGB") :PAUSE 1.5 

2060 GOSUB 6260 

2070 S=S+E:E=0: IF S< =0 THEN S=0 

2080 RETURN 

209O IF D(3)>=0 THEN 2120:G0SUB 6260 Mll __ , . 

2100 CALL CDLORC'OCB") :LOCATE ( 12, 12) :PRINT " + ^LSR HORS-SERVICE++-f " :PAUSE 1.5 

2110 GOTO 720 

2120 GOSUB 6260: CALL COLOR ! "OCB" ): LOCATE (11,8) 

2130 PRINT "+++ANALYSE LSR QUADRANT+-M-" : LOCATE t 12 , 18) : PRINT USING"#/# ;B1;B2 

2140 PAUSE:LDCATE ( 13, 10) s PRINT RPTS ( "-" , 20) : 0FF=1 

2150 FOR I=Q1-1 TO QH-l ;N ( 1 >=-l : N(2)=-2:N <3> =-3 

2160 ! 

2170 LOCATE (13+0FF,10) 

2180 FOR J=Q2-i TO D2+1 „..„,, T1 ,,, -,,-r,T i> 

2190 IF I>0 AND I<9 AND J>0 AND J<9 THEN N( J-Q2+2) =G ( I , J) : Z < I , J> -G( I , J> 

2200 NEXT J 

I TO 3 

LKO THEN PRINT "»**"i:GDTO 2250 
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2240 PRINT USING"###";N<L>; 

2250 NEXT L:PRINT " : " :DFF=0FF+1 iLDCATE ( 13+OFF , 101 i PRINT RPT* < "-" , 20) i 0FF=DFF 

2260 NEXT I 

2270 CALL COLOR ( "OGB" ) i PAU5E s GOTO 920 

2280 IF D(4>WJ THEN 2310 

2296 CALL COLOR < "OCB" ) i LOCATE <13,8):PRINT "+++PHASERS HORS-SERVICE+++" 

2300 PAUSE 1.5! CALL COLDR ( "OGB" ) i GOTO 920 

2310 IF K3>0 THEN 2370 

2320 GOSUB 6260 : CALL COLOR ( "OCB" ): LOCATE (12,10) 

2330 PRINT "+++RAPPORT MONSIEUR SPOCK+++ " 

2340 LOCATE (13,2) 

2350 PRINT "pas de vaisseau* ennemis" :PAUSE 1.5:CALL COLCR ! "OGB" ): GOSUB 6260 

2360 GOTO 920 

2370 IF D(8)>=0 THEN 2410 

2380 CALL COLOR < "OCB" >! LOCATE (12,2):PRINT "ORDINATEUR ENDOMMAGE !" 

2390 LOCATE (13,2):PRINT "précision diminuée" s CALL COLOR ( "OGB" ): PAUSE 2 

2400 GOSUB 6260 

2410 CALL COLOR ("OCB")! LOCATE (12,2):PRINT "PHASERS VEROUILLES SUR OBJECTIF" 

2420 LOCATE (13,2):PRINT "Energie disponible = ";E;" unités" 

2430 LOCATE (14,2):PRINT "Nombres d'unités pour le tir S "; 

2440 ACCEPT BEEP VALIDATE (NUMER IC) SI ZE (-4 ) , X ! IF X<=0 THEN 920 

2450 GOSUB 6260: IF E-X<0 THEN 2420 

2460 E=E-X:IF DI7X0 THEN X=X*RND 

2470 H1 = INT(X/K3) : FOR 1 = 1 TO 3: IF K(I,3)<=0 THEN 2720 

2480 PARAI=0:CALL _FD(PARA1 ,K ( , > , SI ,S2, TE5T1 > 

2490 H=INT( (Hl/TESTl)*(RND+2) > : IF H>. 13*K ( I ,3) THEN 2560 

2500 ' 

2510 LOCATE (12,2) 

2520 PRINT "SENSEURS : ": LOCATE (13,2) 

2530 PRINT "pas d'avaries sur enemmi en i";îPRINT USING"##/##" ,K(I , 1 ) iK ( I ,2) 

2540 PAUSE 2: GOSUB 6260 

2550 GOTO 2720! CALL COLOR ( "OCB" ) 

2560 CALL COLOR ( "0C8" ): K ( I , 3> =K ( I , 31 -H: LOCATE (13, 2) 

2570 PRINT USING"####",H; : PRINT " unités sur ennemi en secteur "; 

2580 CALL COLOR ("OCB") 

2590 CALL SPEECH("S,OOACOOAC00AC0OACFF") : PAUSE .SiCALL SPEECH ( "S, OOBOFF" ) 

2600 PRINT USINB"#/#" ,K(I,l)îK<I,2>iPAUSE 2iG0SUB 6260 

2610 IF KU,3)>0 THEN 2670 

2620 CALL SPEECH < "5, OOBOOOBOOOBOFF") 

2630 CALL COLOR ( "OCB^' ) 

2640 LOCATE (17,8>:PRINT "**#_KLINGON DETRUIT.***" : PAUSE 2:GD5UB 6260 

2650 GOTO 2700 

2660 CALL COLOR ("'•OCB") 

2670 LOCATE (12,2>iPRINT "SENSEURS i" 

26B0 LOCATE (13,2)îPRINT "il reste :";K(I,3)i" unités" 

2690 PAUSE 2: GOTO 2720 

2700 K3=K3-l:K9=K9-liZI=K(I 

2710. K"(I ,31=0: G (01 ,Q2)=G(Q1 

2720 NEXT I i PAUSE 2: GOSUB : 

2730 IF P>0 THEN 2760 

2740 CALL COLOR ( f'OCB") ! LOCATE (12,2! 

2750 PRINT ".TORPILLES EPUISEES" s PAUSE 2:G0TO 920 

2760 IF D(5)>=0 THEN 2790 

2770 LOCATE. (12,2)iCALL COLDR < "OCB" >i PRINT "TUBES NON OPERATIONNELS" s PAUSE : 

2780 GOTD 920 

2790 CALL COLOR ( "OCB" )! LOCATE (12,2) 

2BÛ0 PRINT "ROUTE TORPILLES 11-9) VssACCEPT BEEP vALIDATE (NUMERIOSIZE (-8) 

2810 IF Cl>=9 THEN Cl=l 

2820 IF C1>=1 AND Cl<9 THEN 2B60 

2830 LOCATE !13,2):PRINT "RAPPORT ENSEIGNE CHECOV :" 

2840 LOCATE (14,2)iPRINT "paramétres incorrects" 

2850 PAUSE 1.5î GOTO 720 
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2860 X1=C(C1,1)+<C(C1+1,1)-C(C1,1) ) * (CI-INT (Cl ) ) :E=E-2iP=P-l 

2870 X2=C(C1,2)+(C(C1+1,2)-C(C1,2> ) *<C1-INT (Cl 1 ) :X=S1:Y-S2 

2B80 LOCATE (15,2>:PRINT "TRAJECTOIRE TORPILLE î" 

2890 X = X + Xl:Y=Y+X2:-X3=INT(X + .5) : Y3=INT < Y+. 5) 

2900 IF X3<1 OR -X3>8 OR Y3<1 OR Y3>B THEN 3150 

2910 LOCATE ( 16,2) : PRINT U5ING"#/#" , X3î Y3: A*=" " : ZX=Xs Z2=Y: GOSUB 5220:PAUSE 1 

2920 IF Z3O0 THEN 2890 

2930 A*=CHR*(53)Ï<CHR*(54)Î<CHR*[55) : Z 1 = X : Z2= Y: GOSUB 5220: IF Z3=0 THEN 3010 

2940 CALL SPEECH ( "S , OOBOOOBOOGBOOOBOOGBOFF" ) 

2950 LOCATE fi7,2):PRINT "***_KLINGON DETRUIT.***" ! K3=K3-1 .■ K9=K9-1 

2960 PAUSE 1.5: GOSUB 6260: CALL CDLOR ( "OCS") 

2970 IF K9<=0 THEN 3840 

2990 FOR 1=1 TO 3: IF X3=K ( I , 1 ) AND Y3=K ( I ,2) THEN 3000 

2990 NEXT II 1=3 

3000 K(I ,3)=0:G0TD 313Û 

3010 AS=" * ": Z1=X:Z2=Y:G0SUB 5220: IF Z3=0 THEN 3050 

3020 LOCATE (18,2):PRINT "ETOILE EN X";:PRINT USING"*/*" , X3; Y3 

3030 LOCATE (19,2):PRINT " a annulé l'énergie torpille." 

3040 PAUSE 1. S: GOSUB 3510iG0SUB 5580:G0T0 920 

3050 fl*-CHR*(56)*CHR*(S7)Î!CHR*(5BJ!21-XïZ2=Y:GaSUB 5220: IF Z3=0 THEN 2800 

3060 LOCATE (19,2):PRINT "*»*_STAR BASE DETRUI TE***_" : B3=B3-1 : B9=B9-1 

3070 IF B9>0 OR K9>T-T0-T? THEN 3100 

3080 PRINT "Vous êtes relevé de votre poste Cmt" 

3090 GOTO 3770 

3100 LOCATE (20,2) 

3110 PRINT "Vous risquez la cour martiale ": PAUSE 1.5 

3120 D0=0 

3130 Z1=X!Z2=Y:A*=" ":GOSUB 5060:G0SUB 5580 

3140 G(G1 ,G2>=K3*100+B3*10+S3iZ(Ql,Q2)=G(Ql ,02) : GOSUB 3510:G0TD 920 

31SO LOCATE (16,2) 

3160 PRINT "Torpille a manqué but ": PAUSE 1.5:: GOSUB 3510SB0TD 920 

3170 IF D(7)>=0 THEN 3200 

3180 LOCATE (I2,2)sPRINT "Contrôle d'écran hors service" : PAUSE 1.5 

3190 GD5UB 6260 s GOTO 920 

3200 CALL CDLOR ( "OCB" ï : LOCATE U2,2) 

3210 PRINT "ENERGIE DISPONIBLE : "i E+Ss LOCATE (13,2):PRINT "UNITE D'ECRANS :"; 

3220 ACCEPT BEEP VALIDATE (NUMERIC) SIZE (-4> i X 

3230 LOCATE (14,2) 

3240 IF X<0 OR S=X THEN PRINT "<ECRANS SANS CHANGEMENTS >" : GOTO 920 

3250 IF X<=E+S THEN 3270 

326tt PRINT "<ECRANS SANS CHANGEMENTS>" : PAUSE 1.5: GOTO 920 

3270 E=E+S-X:S=X: LOCATE (12,2):PRINT "SALLE CONTROLE DEFLECTEURS s " 

3280 LOCATE (13,2) 

3290 PRINT "ECRANS MIS A s " ; INT (S) : PAUSE 1.5: GOTO 920 

3300 CALL CDLOR ( "OCB" ): IF D(6>>=0 THEN 3450 

3310 LOCATE (12,2):PRINT "RAPPORT NON DISPONIBLES" : IF D0=0 THEN 920 

3320 D3=0:F0R 1 = 1 TO 8: IF DtIXO THEN D3=D3+. 1 

3330 NEXT I:IF D3=0 THEN 920 

3340 D3=D3+D4:IF D3>=1 THEN D3=.9 

3350 GOSUB 6260:CALL COLDR< "OWB" ): LOCATE (13,2) 

3360 PRINT "TECHNICIENS PRETS A REPARER" 

3370 LOCATE (14,2) 

3380 PRINT "ESTIMATION : " ; . 01*INT ( 100*D3) i " STARJOURS" 

3390 LOCATE (15,2) 

3400 PRINT "AUTORISATION :"; 

3410 ACCEPT BEEP VAUDATÊ t "ON" ) SI ZE (-1) ,A* 

3420 IF A*<>"0" THEN 920 

3430 FOR 1=1 TO S: IF D ( I )<0 THEN D(I)=0 

3440 NEXT IsT=T+D3+.l 

3450 LOCATE (16,2):PRINT "ELEM. AVANC. REPAR. " : PAU5E 1. S: GOSUB 6260 

3460 FOR Rl=l TO 3 

3470 GOSUB 5130:LDCATE f 12+R1 , 2) : PRINT G2*i SEG* < Z* , 1 , 25-LEN !G2* ! ) S 
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JMRO 
3490 
3500 
3510 

3520 
3530 
3540 
7550 
356G 



3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3490 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
37B0 
3790 
3800 



3890 
3900 
3910 
3920 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
4000 
4010 
4020 
4030 
4040 
4050 



3320 



PRINT INT(D(R1)#100)* 

NEXT RI: IF DGOO THEN : 

PAUSE 2: GOTO 920 

IF K3<«0 THEN RETURN 

GOSUB 6260 
,CALL COLOR ("OCB") : LOCATE (12,2) 

IF DOOO THEN PRINT "PROTECTION STARBASE" : PAUSE 1 : GOSUB 6260:RETURN 

FOR 1 = 1 TO 3.-IF K(I,3)<=0 THEN 3730 

PARA1=1:CALL _FD (PARAI , K (, ) ,S1 ,S2, VALEUR) 

H=INT( (K( 1,3) /VALEUR) *(2+RND> ) :S=S-H: K (I ,3) =K ( I ,3) / (3+RND) 

CALL SPEECH("S,OOACFF") :PftUSE 1 

CALL SPEECH ( "S, OOBÛFF" ): CALL COLOR ( "ORB" ) : LOCATE (12,2) 

PRINT INT(H); 

PRINT " UNITES VENANT DU SECTEUR: " i : PRINT USING"#/# " , K ( I , 1 ) ; K ( I ,2) 

LOCATE (13,2) 

IF S<=0 THEN 3750 

LOCATE (14,8)iPRINT "<EERANS A " ; 

PRINT USING"####.##",S;:PRINT " UNITES>":IF H<20 THEN 3730 

PAUSE 2:GD5UB 6260 

IF RND>.6 OR H/S<=.02 THEN 3730 

PARA1=1:CALL _FR(PARA1 ,R1 ) 

D (RI ) =D (RI > -H/S-. 5«RND: GOSUB 5130 

CALL COLOR ( "OCB" ): LOCATE (15,2) 

PRINT "CONTROLE D'AVARIES SIGNALE :":LOCATE (16,2) 

PRINT G2*;" ENDOMMAGE"! PAUSE 2:G0SUB 6260 

NEXT IsCALL COLOR ( "OCB" )s RETURN 

PRINT "C'EST LE STARJOUR :";T:GOTO 3770 

CLS "CBB":PRINT "L'ENTREPRISE A ETE DETRUITE" 

PRINT "LA FEDERATION SERA CONQUISE": GOTO 3740 

PRINT "IL Y AVAIT ENCORE U |K9(" VAISSEAUX KLINGDNS A LA" 

PRINT "FIN DE VOTRE MISSION" 

IF B=9 THEN 3930 

PRINT "LA FEDERATION CHERCHE UN AUTRE COMMANDANT" 

PRINT "ETES-VOUS VOLONTAIRE ?"! 

INPUT Y*s IF Y$="D" THEN 100 

END 

PRINT "FELICITATIONS COMMANDANT" 

PRINT "LE DERNIER VAISSEAU KLINGON A ETE DETRUIT" : PRINT 

PRINT "VOTRE TAUX D'EFFICACITE EST DE : " ; 1000* <K7/ (T-TO) ) "2: GOTO 3790 

FOR I=S1-1 TO Sl+l:FOfi J=S2-1 TO S2+1 

IF INTII + .5X1 DR INT(I+.5>>8 OR INT(J + .5)<1 OR INT(J + .5)>8 THEN 3900 

A*=CHRSI56)^CHR*(57)&CHR*(58) : Z1 = I : Z2=J .-GOSUB 5220: IF Z3=l THEN 3910 

NEXT J:NEXT I:DO=0:GOTD 3940 

CALL COLOR ( "OCB" ): LOCATE (12,2) 

D0=1 : CS="RA60UB" : E=EÛ: P=PO 

PRINT "ECRANS A ZERO POUR ACCOSTER" : S=0: GOTO 3960 

IF K3>0 THEN Cf="RED":GOTO 3960 

C*="VERT":IF E<E0*. 1 THEN CS="JAUN" 

GOSUB 5580 

RETURN 



.•PRINT USINR"###: 



LOCATE (2. 2A) sPRINT "STARJOUR 
PRINT USING"tt###"; INT(T»10)*.I 
LOCATE (3,26):PRINT "CONDITION 



4060 LDCATE (4,26):PRINT "QUADRANT 

4070 LOCATE (5,26):PRINT "SECTEUR 

4080 LOCATE (6,26):PRINT "TOR. PHOTO 

4090 LOCATE (7,26):PRINT "ENERGIE 



;: PRINT USING"#/##";QlîQ2 
;:PRINT USING"#/*#"iSliS2 
i: PRINT USING"*###"ïlNT(P> 
!:PRINT USINS"#tt##"îTNT!E+SÎ 
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i LOCATE <8,26>:PRINT "ECRANS 

i LOCATE (9,26>:PRINT "KLINGON 

i RETURN 

t IF D(H)>=0 THEN 4150 

i CALL COLDR ("OCB") : LOCATE ( 1 1 , 10) ! PRINT "+++ORDINATEUR H.S+++"!GOTO 920 

i CALL COLQRI "OCB"! : LOCATE <12,2>:PRINT "ORDINATEUR OK î"; 

i ACCEPT BEEP VALIDATE(ALPHANUM)SIZE(-1)NULL("6' , > ,AS 

i A=VAL(A*) 

■ IF A<0 THEN 920 



4230 
4240 

4250 
4260 

42'":' 

42S0 
4290 
4300 



4340 
4350 
4360 
4370 
4380 
4390 
4400 



4440 
4450 
4460 
4470 
4480 
4490 
4500 
4510 
4520 
4530 
4540 
4550 
4560 
4570 
4580 
4590 
4600 
4610 
4620 
4630 
4640 
4650 
4660 
4670 

4690 
4700 
4710 



(12,2) : PRINT 
(13,2) :PRINT 
(14,2) :PRINT 
(15,2) iPRINT 
(16,2) :PRINT 
(17,2) iPRINT 



O-ENREGISTREMENT GALACTIQUE" 

1 -RAPPORT DE SITUATION" 

2-DONNEES TORPILLES" 

3-DONNEES NAV. STARBASES" 

4-CALCULS DE DIR. ET DIST " 

5-CARTE DE LA GALAXIE" : PAUSE: GOSUB 6Z60:G0T0 4150 



:G05UB 6380:L0CATE (l,16)îPRINT "LA GALAXIE" : 0FF=1 : GOTO 4350 



LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

H8=0:G5= 

CLS "CBB 1 

GOSUB 6380 

PAUSE 

LOCATE (1,5) SPRINT " +++CARTE QUADRANT GALACTIQUE-^-"-" 

LOCATE (2,20>:PRINT USING"#/#" ,Q1 i Q2 

0FF=1 

LOCATE (3,8!:PRINT " 1 2 3 4 5 6 7 B" 

Dlï=" " 

LDCATE (4,7):PRINT Dlt:FOR 1=1 TD 8: LOCATE (4+0FF,3) : PRINT I; 

IF H8=0 THEN 4430 

FOR J = l TO 8:PRINT " " ; ! IF Z<I,J>=0 THEN PRINT •'***": i GOTO 4420 

CHAINE*=STR$<Z(I,J)+1000) 

PRINT SEG*(CHAINE*,LEN(CHAINE*)-2,3) i 

NEXT J:GOTO 4450 

Z4=Ii 25=1: GOSUB 5250 i JO=INT 1 14-. 5*LEN (G2* )): LDCATE (4+OFF.JO) : PRINT G! 

Z5=5îG0SUB 5250: JO=INT (30-. 5*LEN(G2*) 1 : LDCATE (4+0FF,J0> : PRINT G2* 

0FF=QFF+1 

LOCATE (4+DFF.7) :PRINT 01*! DFF=0FF + 1 : NEXT I : PAUSE 

GOSUB 626O:G0SUB 5580:G0T0 920 

GOSUB 626Û:CALL CDLDR ( "OCB" ): LOCATE ( 1 1 , 10) : PRINT "+++R6PPQRT+++" 

X*="":IF K'9>1 THEN X*="S" 

LOCATE (13,2):PRINT "KLINGON" ; XSi " RESTANT"; X*i " :"iK9 

LOCATE (15.2) 

PRINT "TEMPS MISSION : " i . 1*INT ( (T0+T9-T) #10) i " STARJOURS" 

LOCATE (16,2) 

PRINT B9;" STARBASE";X*i " DANS LA GALAXIE" 

PAUSE:: GOSUB 6260: GOTO 3300 

LOCATE (16,2) 

PRINT "VOUS N'AVEZ PLUS DE STARBASES" : PAUSE: GDSUB 6260:G0T0 3300 

GOSUB 6260:CALL C0L0R( "OCB" > : IF K3<=0 THEN 2320 

LOCATE (U, 2) SPRINT "ENTREPRISE — > VAISSEAUX KLING0N5" 

H8=0:F0R 1 = 1 TO 3: IF K(I,3X-Û THEN 4950 

W1=K(I,1): X=K(I,2) 

C1=S1:A=S2:G0T0 4770 

GOSUB 6260:CALL COLOR ( "OCB") : LOCATE (11,2) 

PRINT "CALCULS DIRECTION/DISTANCE" 

LOCATE (13,2) 

PRINT ■ 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LDCATE 



Vous 



ptes ds le qttadr 
) : PRINT "secteur 



: PRINT 
!) :PRINT 
: PRINT 
:PRINT 



"; :PRINT USING"#/*' 
PRINT USING"#/#",SltS2 
nnnRnnNNFFS rNiTT« fr (>r.V) i" 
X="i:ACCEPT BEEP VALIDATE (DIGIT) SIZE( 
"Y="ï:ACCEPT BEEP VALIDATE (DIGIT) SI ZE 
COORDONNEES FINALES (X,Y) " 



02 
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4730 ACCEPT BEER VAL I DATE (DIGIT) SUE (-1 >, Wl 

4740 LOCATE ( 18i 12) :PRINT "Y="i 

4750 ACCEPT BEER VALIDITE (DIGIT) SIZE (-1 ) ,X 

4760 GOSUB 6260 

4770 X=X-Ai A=C1-W1: IF X<0 THEN 4860 

4780 IF A<0 THEN 4B8Û 

4790' IF X>0 THEN 4810 

4800 IF A=0 THEN C1=5:GDT0 4820 

4810 Cl=l 

4820 IF ABS(AK=ABS(X>THEN 4850 

4830 LQCATE U2,2):PRINT "DIRECTION =" ; Cl + ( ( ( ABS ( A) -ABS ( X ) ) +ABS ( A > ) /ABS ( A) 

4B40 GOTO 4930 

485G LOCATE (12,2>:PRINT "DIRECTION=" ; C 1 + < ABS ( A ) /ABS ( X ) ) : GOTO 4930 

4860 IF A>0 THEN C1=3:G0T0 4690 

4870 IF XO-0 THEN Cl =5: GOTO 4820 

4880 Cl =7 

4890 IF ABS (A) >=ABS f X ) THEN 4920 

4900 LQCATE (12,2>:PRINT "DIRECTION =" ; C1 + ( ( (ABS <X> -ABS (A) > +ABS (X) ) /ABS (X) ! 

4910 GOTO 4930 

4920 LDCATE U2,2):PRINT "DIRECTION =";i 

4930 LOCATE (13,2):PRINT "DISTANCE = "i 

4940 PAUSE : GOSUB 6280: IF H8=l THEN 920 

4950 NCXT IsSOTD 920 

4960 IF B=3 THEN 4990 

4970 GOSUB 6260: CALL COLOR ( "OCB" ): LOCATE <15,2):PRINT "ENTREPRISE ~> STARBA: 

4980 W1=B4:X=B5:G0T0 4620 

4990 CALL COLOR < "OCB" ): LDCATE <16,2):PRINT "++-t-RAPPORT MONSIEUR SPOCK+++" 

5000 LOCATE (17,2):PRINT "AUCUNE STARBASE DANS QUADRANT" ï PAUSE 1.5:G0TD 920 

5010 ! 

5020 PARAl=lsCALL _FR (PARAI , RI > 

5030 PARAl=lsCALL _FR<PARA1 ,R2) 

504O A$=" ":Z1=R1:Z2=R2:G0SUB 5220: IF Z3=0 THEN 5020 

5050 RETURN 

5060 SB=ABS(INT ( Z2-. 5) *3+INT ( Z 1-. 5) *24+l > ^=^ 

5070 IF LEN(A*)<->3 THEN PRINT "ERREUR" : PAUSE 

5080 ! 

5090 ' 

100 IF S8=l THEN Q*=A*.<.SEG* <Qf ,4 , 189| ! RETURN 

110 IF 88=190 THEN Q*=SEG* (O*, 1 , 1B9>îiA*!RETURN 

120 Q*=SEG*<Q*, 1.S8-1 ) &A*:!<SEG$ (Q.Î,SB-l+4, 190-58) : RETURN 
5130 ON RI GOTO 5140,5150,5160,5170,5180,5190,5200,5210 
5140 G2*="M0TEUR' WARP":CALL COLOR < "OCB" ): RETURN 
5150 G2*="SENSEURS COURTE DISTANCE"! CALL COLOR < "OCB" ): RETURN 
5160 G2*="SENSEURS GRANDE DI STANCE" : CALL COLOR ( "OCB" ): RETURN 
5170 G2*="C0NTRDLE PHASER":CALL COLOR ( "OCB" >: RETURN 
5180 G2*="TUBES PHOTDNI DUES" : CALL COLOR ( "OCB" >: RETURN 
5190 G2*="C0NTR0LE D ' AVARIE" : CALL COLOR f "OCB" ): RETURN 
520O G2*= "CONTROLE D ' ECRANS" s CALL COLOR ( "OCB") : RETURN 
5210 G2*="LIBRAIRIE ORDINATEUR" : CALL COLOR ( "OCB" ) iRETURN 
5220 Zl=INT(Zl+.5) : Z2=INT (Z2+. 5) : SS= (Z2-1 ) *3+(Zl-l ) *24+l : Z3=0 
5230 IF SEG*(0*,SS,3)OA* THEN RETURN 
524Û Z3=l: RETURN 

5250 IF Z5<=4 THEN ON Z4 GOTO 5270,5230,5290,3300,5310,5320,5330,5340 
5260 GOTO 5350 

5270 G2*="ANTARES":G0T0 5440 
5280 G2*="RIGEL":G0T0 5440 
5290 G2*="PR0CY0N":G0T0 5440 
5300 G2*="VEGA".'G0T0 5440 
5310 G2S="CAN0PUS":GDTD 5440 
5320 G2*="ALTAIR":G0T0 5440 
5330 G2*=" SAGITTAIRE ".-GOTO 5440 
5340 S2*="PDLLUX"!G0T0 5440 
5350 ON Z4 GOTO 5360,5370,5380,5390.5400. 541 n . B4?n . =!4^n 
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5360 
5370 
5330 
5390 
5400 
54 1 



5420 
5430 
5440 
5450 
5460 
5470 
54S0 
5490 
5500 
5510 
5520 
5530 
554.:; 

5550 
5560 
5570 
5580 
5590 
5600 
5610 
5620 
5630 
5640 
5650 
5660 
5670 
5680 
5690 
5700 
5710 
5720 
5730 
5740 
5750 
5760 
5770 
5730 
5790 
5BOO 
5810 



583'' 
5840 
5850 
5B60 
5870 
5880 
5890 
5900 
5910 
5920 



5950 
5960 
5970 



G2$= " SIRIUS" I GOTO 5440 
G2*="DENEB" : GOTO 5440 
G2*="CAPELLLA":G0T0 5440 
G2$="8ETELGEUSE":G0T0 5440 
G2$="ALBERADAN":G0T0 5440 
G2*="REGULUS":Gt>T0 5440 
G2*="ARCTURUS"iG0T0 5440 

IF*G5<M P THEN DM Z5 GDTD 5460,5470,5480,5490,5460,5470,5460,5490 

RET1JRN 

G2*=S2*S<" I " = RETURN 

G2*=G2*.V II":RETURN 

G2*=G2S& " III": RETURN 

G2£=G2«<" IV"! RETURN 

END 

! + +++++++ ++++flFFICHE SRS++++++++++ 

GDSUB 6160 

CALL CDLORC'IYB") 

FOR X=0 TO B 

LOCATE (2+X,2) îFRINT SEG* f Q*, <24*X) +1 ,24) 

NEXT X:CALL CGLORC'OCB") 

RETURN 



! + TEST SRS VALIDE 
IF D(2) >=0 THEN 5770 



CALL COLORCOCB" 



(5,2: 



iPRINT RPT*C 
:PRINT RPT*C 
:PRINT RPT*C 
:PRINT RPT*C 
:PRINT RPT*(' 
:PRINT RPTSC 
:PRINT RPT*C 
:PRINT RPTSC 



LDCATE (2,2! 
LOCATE 
LQCATE 
LOCATE 
LDCATE (6,2 
LOCATE (7,2 
LOCATE (B,2 
LOCATE !9,'2 
RETURN 

GOSUE 5510 
GOSUB 3990 
RETURN 



CALL CHAR (33, "1B1818 18181818181818") 
AA*=CHR*J9> :BB*=CHR*<4) iCC*=CHR*<6> : DD*= 
FF*=CHR*(8! îGG*-CHR*!7) 
CALL CHAR (50 , "003F0700000EOFOEOOOO" ) 
CALL CHAR(51,"3CFFFFiaiB1818BD7E3C"). 
CALL CHAR ( 52 , " 00FCE000007OF07O0000 " ) 
CALL CHAR (33 , " 00OO80E09F0E04O0000O " ) 
CALL CHAR ( 54 , " 0000000O8 1 5A3C7E3C 1 8 " ) 
CALL CHAR I 55 , "00000 1 07F97020000000 " ) 
CALL CHAR(56,"003C3C3C3C0201021C1C"> 
CALL CHAR<57,"0000003C3C3CFF3C3C3C" ) 
CALL CHAR<5B,"003C3C3C3C4080403C3C"> 
CALL CHAR ( 65 , "FFFFFFFFFFFFFFFFFFFF" ) 
RETURN 



îEE*=CHR*(3) 



20 



Exelement vôtre 



EXELEMENT VOTRE 



6020 
60.30 
6040 
6050 
6060 
6070 
6080 
6090 



SP AFFICHAGE DES ORDRES 



6140 
61S0 
6160 
6170 
618Q 
6190 
6200 
-6-210 
6220 
6230 
6240 
62SO 
6260 
6270 
62B0 
6290 
6300 
6310 
6320 
6330 
6340 
6350 x 
6360 
6370 
6380 
6390 
6400 
6410 
6420 
6430 
6440 
6450 
6460 
6470 
6480 
6490 
6500 
65.10 
6520 
6530 
6540- 
6550 
6560 
6570 
6590 
6590 
6600 



CLS "Gbb" 

C0RX=1 : C0RY=1 : CDRL = 38s C0RH=8 

CALL CADRE (CORX , CORY, CORL, CORH, AA*,BB*,CC*,DD*,EE*, FF*, GG*> 

RETURN 

'+ AFFICHAGE COCKPIT 

CLS "Gbb" 

C0RX = 1 1 : C0RY=1 : C0RL=3S: CDRH=1 1 

CALL CADRE (CORX , CORY , CORL , CORH , AA* , SB* , CC* , DD* , EE* , FF* ,GG* > 

RETURN 



AFFICHAGE COCKPIT 



C0RX = 1 : CQRY=I : C0RL=3B: C0RH=9 

CALL CADRE (CORX, CORY, CORL, CORH , AA* , BB* , CCS, DD* , EE* , FF*, GG*> 

RETURN 

EFFACE FENETRE+++++++++++ 



FOR 1=1 TO 9:L0CATE ( I 1+1 ,2) ïPRINT RPT* ( 

RETURN 

I++++++++EFFACE FENETRE V1++++++++ 

LOCATE (11,3) .-PRINT RPT*( 

LOCATE (12,2) sPRINT RPT* ( 

3,2) sPRINT RPT*( 

4,2) sPRINT RPT*( 



,37) :NEXT I 



15,2) sPRTNT RPT*C 
16,2) :PRINT RPT* ( " 
17,2>:PRINT RPT* ( " 
18,2) :PRINT RPT*(" 
19,2) :PRINT RPT*(" 
20,2) sPRINT RPT* ( " 



9) 



LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

RETURN 

! +++++++++++CARTE GALAX !£+++++++++ 

CORX = 1 : CORY= 1 s C0RL=38 : C0RH=2 1 

CALL CADRE ( CORX , CORY , CORL , CORH , AA* , BB* , CC* , DD* , EE* , FF* , GG* > 

RETURN 

SUB _FD (PARAI ,K( , ) ,S1 ,S2,PARA2) 

PARA2=SQR( (K (PARAI ,I)-S1 ) "2+ (K (PARAI ,2>~S2)~2> 

SUBEND 

SUB ^FR(PARA1,PARA2) 

FARA2=INT< (RND*PARA1)*7.9B+1.01) 



SOUS-PROGRAMME CADRE 



SUB CADRE (CORX, CORY, CORL, CORH, AA*,BB*, CC*, DD*,EE*, FF*, GG*) 

CALL COLORC'OMB") 

LOCATE (CORX, CORY) sPRINT AAt&RPT* (BB*,CORL)&CC* 

FOR AAA=1 TD CORH:LOCATE <CORX+AAA,C0RY> 

PRINT EE*&RPT*(DD*,CORL)S<EE*:NEXT AAA 

LOCATE (CORX+CORH.CORY) sPRINT FF*&RPT* (BB*,CORL) &G3* 

SUBEND 
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De l'utilisation de la cassette informatique dans la 
génération graphique animée et dans la glossolalie 
conviviale appliquée à l'interactivité homme- 
machine 



Ce dernier numéro d'Exelement Vôtre a été 
expédié avec une K7. C'est par compassion pour 
votre tête et vos mains que nous avons préféré 
joindre des programmes sous forme enregistrée. 
En effet, si vous n'avez jamais tapé 10 Ko de 
source assembleur, vous ne saurez jamais ce 
qu'une telle entreprise peut générer comme 
malaises et autres désagréments que la morale 
informatique réprouve. Toujours est-il, petits 
veinards, que vous héritez de deux logiciels 
entièrement écrits en assembleur 7000. Le 
premier programme, contenu sur la face A de la 
cassette est un programme de génération de 
sprites, et en mapping s'il vous plaît (pour les 
anglophobes, haute résolution). Oui, vous avez 
bien lu. Le deuxième programme, j'ose à peine le 
dire car vous allez penser que le soleil de juillet m'a 
fait tourner la tête, est le célèbre Exelvox. Attendu 
comme l'Arlésienne, espéré comme les temps 
messianiques par le clergé, ce logiciel n"a pu être 
édité pour des raisons X, Y ou Z dont le 
développement sortirait du cadre de la feuille et de 
la revue. Ces programmes ne peuvent être 
trouvés dans le commerce et leurs valeurs 
marchandes cumulées avoisinent tes 800 F. Il n'y 
a pas que le loto qui peut rapporter gros. 




Chargement des programmes 

Les deux programmes doivent être chargés dans 
l'Exelmémoire. La fonction TAPECHAM doit être 
utilisée. Si vous ne possédez pas d'Exelmémoire, 
vous ne pourrez pas utiliser les programmes. En 
fonction du programme chargé, la mémoire 
disponible restante sur l'Exelmémoire peut varier. 

Les deux programmes proposés, SPRITE et VOX 
sont formés de routines qui sont appelées par le 
BASIC. Les différentes bibliothèques de routines 
disponibles seront décrites un peu plus loin. 



Synopsis d'appel 

Les routines écrites en assembleur doivent être 
préalablement chargées dans le programme Basic 
avant toute utilisation. Ceci se réalise en stipulant 
au sein du programme BASIC, CALL LOADfnom 
de la routine"). Une fois celle-ci chargée, elle est 
disponible et exécutable à l'aide d'un CALL 
DOf nomde la routine, parai, para2, etc.). Parai, 
para2, etc.. sont des valeurs fournies par 
l'utilisateur et spécifiques à une routine donnée. 

A l'aide de ces deux programmes, le BASIC 
disposera de plusieurs fonctions 

supplémentaires. Une contrainte toutefois, la 
présence du programme assembleur est 
indispensable. 

Je vous laisse encore un peu de temps pour vous 
remettre de vos émotions. Branchez votre LEP ( 
Lecteur Enregistreur de Programmes), tournez la 
page, suivez attentivement les conseils 
d'utilisation et bientôt vous utiliserez ces routines 
comme un pro.... 
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Les s prites 



Définition 

Un sprite est une tonne graphique (64 pixels pour 
ce programme) que l'on peut déplacer sur l'écran 
haute résolution sans que le fond graphique soit 
altéré. Plus simplement, cela signifie que le 
passage de cette forme n'efface pas le ou tes 
motifs affichés à l'écran. Un sprite peut prendre 
plusieurs formes qui peuvent être affichées 
successivement. Cette particularité permet de 
créer une illusion de mouvement assez 
remarquable. Ce peut être une silhouette qui 
court, une déformation après explosion ou tout ce 
que vous voulez. 4 sprites différents ainsi que 
8 formes associées sont gérés par le programme. 
Les sprites disposent d'une unité de mouvement 
autonome, c'est-à-dire qu'une fois le cap et la 
vitesse fixés, les sprites se déplaceront sans autre 
intervention, ce qui s'évère particulièrement utile 
pour les jeux d'action. Une restriction toutefois, la 
vitesse d'animation est inversement 
proportionnelle au nombre de sprites mis en jeu. 
Ainsi, lorsqu'un jeu fait appel à un seul sprite, le 
déplacement de ce dernier sera rapide et même 
on devra réduire sa vitesse. Par contre, si 
plusieurs sprites sont associés dans un jeu, 
l'animation sera ralentie. 



Utilisation du programme SPRITE 

Pour utiliser le programme SPRITE, vous devez 
disposer d'un Exeltel ou d'un EXL 100, d'un 
L.E.P. , d'une Exelmémoire, et d'une cartouche 
BASIC. 

Chargement du programme SPRITE 

Le programme est en fait un BACKUP 
d'Exelmémoire et il devra être rechargé comme tel. 
Une fois, le magnétophone branché, lancez la 
commande BKP de TExelmémoire et choisissez 
l'option 1 ( TAPE->CRAM). Vous fournirez ensuite 
le nom du BACKUP CRAM qui s'appelle SPRITE. 
Ensuite, opérez comme d'habitude. Une fois le 
transfert réalisé, rExelmémoire doit contenir trois 
fichiers .COM qui occupent au total 8517 octets. 
Ces trois fichiers .COM sont respectivement : 
MATH.COM, GRAPH.COM, SPRITE.COM. 



Les fichiers .COM 

Le fichier MATH.COM contient les routines 
mathématiques nécessaires au bon 
fonctionnement du programme. Le fichier 
MATH.COM ne fait pas l'objet d'un chargement 
particulier. Il est utilisé par les autres routines. Son 
appel est réalisé de manière transparente pour 
l'utilisateur. 

Le fichier GRAPH.COM doit être chargé avant 
d'utiliser les différentes fonctions graphiques. Le 
chargement se réalise à l'intérieur du programme 
BASIC par l'exécution de CALL LOAD 
("GRAPH.COM"). Les différentes fonctions 
disponibles seront exécutables par l'instruction : 
CALL DO ("GRAPH", parai, para2, para3, para4, 
para5). 

Parai identifie le numéro de fonction. Trois 
fonctions sont disponibles : 

parai = 20 -> tracé d'un cercle ou d'une ellipse. 



-para2 - coordonnée en x du centre 
■para3 * coordonnée en y du centre 

-para4 = coordonnée en x du rayon 
-para 5 - coordonnée êii t'y du rayon 
-para 6 - caractère de fa couleur 



Les fonctions disponibles avec GRAPH.COM 
doivent être utilisées après avoir allumé la page 
haute résolution. 

Exemple : 

100 CALL LOAD {"GRAPH") 
110 CALL HRON <"B",1,20) 
120 CALL DO ("GRAPH",20,1 60,90,20 
0,90,-Û") 

RUN [ENVOI] 

Vous devez obtenir un cercle de couleur verte sur 
un écran noir. Le dernier paramètre correspond à 
la couleur d'affichage Le codage de la couleur suit 
les mêmes règles que l'affectation de couleur de la 
page graphique haute résolution. 
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Un autre exemple un peu plus complexe : 



100 ! 

110 !• SP CHU. GMM 

120 

130 CLS 'Mb" 

140 OU LOMfBMM-) 

150 CflU. HDH'BM.a» 

160 RK MTOWI 5TEPP1/20 

170 X=(I«5)+75 

180 Y-SENUX30 

190 !0flU- FUrfVtliYffn 

195 CALL M('WIPr,»,W«9<M+20 1 V*9O, , 6' 

300NEXT [ 




parai = 21 -> remplissage d'une figure 

Cette fonction permet de remplir une portion 
(zone) de l'écran. Le remplissage peut utiliser un 
motif (pattern) que l'utilisateur définit. 



-para2 = coordonnée en x début zone 
isaraS -coordonnée en y début zone 
-para4 = liste de 10 caractères 



para4 est en fart une chaîne de caractères dont les 
termes jouent les rôles suivants : 

Premier caractère : couleur d'écriture 
Deuxième caractère : couleur de fond 
Huit derniers caractères : motif ou pattern 
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Exemple : 

100 CALL LOAD TGRÀPH") 

1 10 CALL HRON ("B",1,20) 

115 CAL DO rGRAPH",20 l 160,90,20,0,90,"G") 

117 AÏ="YGAA55AA55AA55AA55" 

120 CALL DO TGRAPH", 21, 2, 2, A$ ) 



para4 peut être exprimé sous la forme d'une 
variable de chaîne. Là définition du motif obéit aux 
mêmes règles que la définition d'un caractère en 
mode semi-graphique, c'est-à-dire : définition 
d'une matrice de 10x8 points codée en 
hexadécimal. Cf manuel de référence BASIC ou 
BASIC+. Dans notre exemple le résultat du 
codage de la matrice donne 

AA55AA55AA55AA55. 



parai =22 -> affichage d'un caractère sur 
la page graphique 



Cette fonction permet d'afficher un caractère sur la 
page graphique haute résolution. 



-para2 = 


coordonnée en x 


du caractère 


■para3 ■ 


coordonnée en y 


du caractère 


-para 4 


* typé d'affichage 
-0-AND 
-1-OR 
-2.XOR 




■para5 • 


liste de 2 octets (couleur/caractère) 



Exemple : 



00 CALL LOAD ("GRAPH") 

110 CALL HRON ("B-,1,20) 

115 CAL DO {"GRAPH",20,160,90,20,0,90,"G") 

120 CALL DO {"GHAPH", 22,1,1,0,"GA") 



Le caractère A est affiché en coordonnées x=1, 
Y=1 dans la couleur verte. 
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Les fonctions de gestion de sprites 

Ces fonctions gèrent tout ce qui rapporte aux 
sprites (initialisation des formes, positionnement, 
déplacement, vitesse, cap, etc.). 

Ces fonctions appartiennent au fichier 
SPRITE.COM. Avant d'être utilisées, elles devront 
être préalablement chargées par : 

CALL LOAD ("SPRITE") 

Les fonctions seront ensuite exécutées par : 



CALL DO ("SPRITE", parai, para2, 
para3, para4, etc..) . 



parai identifie le numéro de fonctions et 
correspond à : 



parai 


Fonction 


00 


initialisation forme sprite 


01 


initialisation d'un sprite 


02 


positionne le sprite 


03 


montre le sprite 


04 


cache un sprite 


05 


fixe la valeur du pas 


06 


fixe la valeur du cap 


07 


déplace le sprite 


08 


affiche la forme suivante 



parai, para2, para3, para4, etc.. .sont des 
paramètres spécifiques qui dépendent de la 
fonction utilisée. 



Initialisation d'une forme 

Un sprite est une matrice de 64 pixels (haute 
résolution) qui peut prendre quatre formes 
distinctes si on le désire. De cette manière, le 
sprite peut avoir un mouvement propre 
d'animation lorsque l'utilisateur affiche 
successivement ses quatre formes constitutives. 
Le codage de la matrice s'effectue d'une manière 
analogue à celle de la définition d'un caractère en 
mode semi-graphique si ce n'est que le codage 
porte sur quatre matrices primaires. Voir page 
suivante. Une fois le codage réalisé, la forme doit 
être initialisée en utilisant la fonction 0. 

Soit le codage hexadécimal : 

A$-"0180018003C003C007E007EOOFFOOFFO 
1 FF81 FF83FFC3FFCE187E3C7E3C7E7E7- 

L 'initialisation de la forme se réalisera par : 

100 CALL LOAD ("SPRITE") 
110 CALL HRON("B",1,20) 
120 CALL DO ("SPRITE", 0,0, A$) 

Format général de l'initialisation de la forme 

CALL DOC'SPRITE", 0, para2, para3) 

Para2 représente le numéro de la forme de à 7 

pour l'ensemble des sprites. 

para3 représente le codage de la forme. 

La forme que nous avons définie porte le numéro 
et représente un vaisseau spatial. Une fois cette 
forme initialisée, on passe à la forme suivante si on 
désire que le sprite ait plusieurs formes possibles. 

La phase d'initialisation des formes d'un sprite est 
une étape obligatoire. Elle est fastidieuse car le 
codage doit être exprimé en hexadécimal ce qui 
suppose une bonne maîtrise de cette base de 
numérotation. Toutefois, ce codage ressemble 
énormément au codage classique d'un caractère 
sauf, que nous avons quatre matrices à coder. 
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z 


■ 




■ 


■un 


■ 






j 


■ 




JL 


■ 




■ 


■□_■ 
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JL 


| 


1 II 


■ 




■c 


□ 
t 


DDK 






JL 


1 


-m 


■ 




■z 


LU» 






JUU 




□ 


a 


■ 




HDDDL 


L 








j-j 




H 


r 


■ 




nnnnc 


D 






^c 


J2 
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Résultat du codage 

Si vous regardez la page précédente, il y a quatre 
grille de 8x8 cases. A chaque rangée (16 au total) 
correspond une série de quatre caractères qui 
représente l'état du sprite. 2 caratères pour la 
première grille, 2 caractères pour la deuxième 
grille. Chaque grille est divisée en 2 parties 
distinctes comme pour le codage d'un caractère si 
ce n'est que nous n'avons que 8 rangées par grille 
(10 rangées dans la définition d'un caractère). Le 
codage s'effectue pour chaque quartet. Ainsi pour 
la première rangée (rangée n° 1) nous avons : 






-> premier quartet 


1 


-> deuxième quartet 


8 


-> troisième quartet 





-> quatrième quartet 



Si vous ne savez pas comment coder un quartet, 
nous vous rappelons que le système fonctionne 
en base hexadécimale. Le premier élément du 
quartet (le plus à droite) vaut 1 , le deuxième (à la 
gauche du premier) vaut 2, le troisième vaut 4, la 
quatrième vaut 8. 

Représentations possibles d'un quartet 



D 


■ 


■ 


□ 


C 


■ 


D 


■ 


D 


■ 


□ 


n 


E 


H 


■ 


■ 


C 


D 


■ 


□ 


□□ni 


CDU 


■ 


■ 


■ 


■ 



Codage de la forme définitive 





■ 


■ 


□ 




■ 


D 


■ 




■ 


D 


a 






■ 


■ 






■ 


H 






D 


■ 


■non 


D 


■ 


■ 


■ 



valeur 

1 
2 
3 
4 
5 



* rangée 


10 


20 


30 


4Q 


1 





1 


8 





2 





1 


8 





3 





3 


C 





4 





3 


C 





5 





7 


E 





6 





7 


E 





7 





F 


F 





S 





F 


F 





9 


1 


F 


F 


8 


10 


1 


F 


F 


8 


11 


2 


1 


8 


7 


12 


6 


1 


6 


8 


13 


E 


3 


C 


7 


14 


E 


3 


C 


7 


15 


E 


7 


E 


7 


16 


E 


7 


E 


7 
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Une fois les différentes formes définies et le 
codage réalisé, une simple instruction lancera 
l'initialisation des formes. Ces formes pourront être 
utilisées pour composer les sprites. 

Initialisation d'un sprite 

Cette étape suit immédiatement l'initialisation des 
formes. 

CALL DOC'SPRITE", 1, numéro de 
sprite, liste de 5 caractères) 



La liste de 5 caractères contient un caractère qui 
représente la couleur du sprite. Ce caractère est 
une lettre : 



b 


-> 


bleu 


B 


-> 


noir 


c 


■-> 


cyan 


G 


■■> 


vert 


M 


:-> 


magenta 


R 


-> 


rouge 


W 


-> 


blanc 


Y 


■* 


jaune 



Les quatre caractères suivants identifient les 
formes mises en jeu pour la constitution du sprite. 
Ces caractères sont des chiffres. Aisnl, si la forme 
définie précédemment était la forme numéro 0, 
l'instruction chargée de l'initialisation du sprite 
donnera : 

CALL DOC'SPRITE", 1,1, "C000O") 

La couleur du sprite sera cyan et il sera constitué 
de la forme 0. Notez au passage que quatre 
formes peuvent être assignées au sprite. La liste 
de 5 caractères est écrite entre des guillemets ce 
qui signifie que cette liste peut être fournie sous la 
forme d'une variable de chaîne : A$ = "CO000" / 
CALL DO("SPRITE", 1, A$). 1 identifie le numéro 
de fonction. Les couleurs sont évidemment 
identiques à celles utilisées pour la page 
graphique haute résolution. 



Positionnement d'un sprite 



Un sprite doit être positionné sur la 
graphique avant de pouvoir être utilisé. 



CALL DOC'SPRITE", 2, para 2, para3, 
para4) 



para2 -> numéro de sprite 
para3 -> coordonnée X 
para4 -> coordonnée Y 



Ainsi, pour le sprite numéro 1 défini ci-avant nous 
aurons : 

CALL DOC'SPRITE", 2, 1, 50, 50) 

Le sprite numéro 1 sera positionné aux 
coordonnées X=50, Y - 50. Les coordonnées 
fournies sont caclculées modulo la taille de la page 
graphique. Si la coordonnée horizontale fournie 
vaut 2000, elle sera ramenée à une valeur 
comprise entre 1 et 320. Donc, cette fonction ne 
retrounera pas un message d'erreur si une valeur 
incorrecte est donnée. 



Montrer un sprite 

Une fois le sprite positionné, il doit être montré sur 
la page graphique. Sans l'activation de cette 
fonction, le sprite existe virtuellement mais n'est 
pas affiché. 

CALL DOC'SPRITE", 3, para2) 



para2 -: 



numéro de sprite 



Dans notre exemple, nous aurons : 

CALL DOC'SPRITE", 3,1) 



Le sprite sera affiché aux coordonnées 
mentionnées dans la fonction précédente. 
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Cacher un sprite 

Cette fonction permet de cacher un sprite. 
Lorsque cette fonction est exécutée, le sprite est 
effacé de la page graphique. If sera de nouveau 
affiché lorsque la fonction chargée de montrer un 
sprite est activée. 

CALL DO("SPRITE", 4, para2) 



para2 -> numéro de sprite 

Dans notre exemple, nous aurons : 

CALL DO("SPRITE",4, 1) 



CALL DOCSPRITE", 5, para2, para3) 




La fonction "cache sprite" peut s'avérer fort utile 
dans certains jeux pour cacher un vaisseau allien 
ou supprimer un objet ou ce que vous voulez... 



Fixer la valeur du pas d'un sprite 

Le pas d'un sprite peut être assimilé comme la 
vitesse de déplacement d'un sprite. Le pas est 
une valeur numérique qui est fournie comme 
paramètre. 



para2 -> numéro de sprits 
para3 -> pas 



Le pas est une valeur numérique entière et 
positive. 

CALLDO("SPRITE",5,1,5) 

L'exécution de cette instruction déplacera le sprite 
numéro 1 de 5 pixels suivant un cap. 



Fixer le cap d'un sprite 

A l'aide de cette fonction, on défini le cap d'un 
sprite ou plus simplement sa direction. Le cap d'un 
sprite est une valeur calculée modulo 360. Cette 
valeur correspond à une unité d'angle. 




CALL DOCSPRITE", 6, para2, para3) 



Z\ 



para2 -> numéro de sprite 
para3 -> cap 
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Dans notre exemple, l'instruction : 
CALL DO("SPRITE", 6, 1, 90) 



aura pour effet de fixer le cap du sprite numéro 1 à 
90°. 



Déplacer un sprite 



Une fois le pas et le cap d'un sprite définis, le 
sprite peut être déplacé. 



CALL PO("SPRITE", 7, pam2 ) | 

para2 -> numéro du sprite 

A l'exécution de cette fonction le sprite est 
déplacé d'une valeur correspondant au pas et 
suivant une direction fixée par le cap. 

Dans notre exemple : 

CALL DO{"SPRITE", 7,1) 



déplacera le sprite numéro 1 de 5 pixels suivant un 
cap de 90°. 



Afficher la forme suivante d'un sprite 

Si un sprite est constitué de plusieurs formes, 
cette fonction permet d'afficher la prochaine forme 
du sprite. 



CALL DOf'SPRITE", 8, para2) 



para2-> numéro du sprite 



Attention : le numéro du sprite doit être 
une valeur comprise entre et 3 et ce. 
dans toutes les fonctions rencontrées 



Les fonctions d'interrogation des sprites 

Les fonctions d'interrogation permettent d'obtenir 
des informations relatives aux positions des 
sprites, aux chocs entre deux sprites et à la 
couleur d'un point de l'écran graphique. 

Ces fonctions sont primordiales pour la 
conception de jeux. 

Position d'un sprite 

Cette fonction retourne dans deux variables 
numériques la position d'un sprite donné. 



CALL DOC'SPRITE", 10, para2, para3, 
para4) 



para2-> numéro de sprite 
parà3 1 -> variable coor. X 
para4 -> variable coor. Y 



Dans notre exemple, nous aurons : 

CALL DOrSPRfTE", 10, 1, X, Y) 

X et Y contiennent les coordonnées du sprite 
numéro 1 . 

Choc entre deux sprites 

Cette fonction retourne dans une variable 
numérique la valeur ou la valeur 1 en fonction 
d'un choc entre un sprite A et un sprite B. 



CALL DOfSPRITE", 11, para2, para3. 
para4) r- 



para2 -> numéro sprite 
para3 -> numéro sprite 
para 4-> variable numérique 



para4 est une variable numérique (CHOC par 
exemple). La valeur retournée vaut 1 lorsqu'il y a 
choc entre les deux sprites et lorsqu'il n'y a pas 
de choc. 
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Exemple : 

CALL DO("SPRITE", 11, 1, 2, CHOC) 



CHOC vaut 1 si un choc a été détecté. CHOC vaut 
si aucun choc n'a été détecté. 



Couleur d'un point 

Cette fonction permet de récupérer la couleur 
d'un point. Les coordonnées de ce point sont 
celles retournées par la fonction 10. 

CALL DOCSPRITE", 12, 
para2,para3,para4) 



Not e : les coordonnées X et Y retournées par la 
fonction 10 correspondent aux coordonnées du 
centre géométriques du sprite. 

para4 est une variable numérique. La couleur est 
retournée dans cette variable sous la forme d'un 
code numérique. 



para2-> X du point 
para3 -> Y du point 
para4 -> variable numérique 






-> 


noir 


1 

2 


-> 


rouge 
vert 


3 
4 


-> 


jaune 
bleu 


5 


-> 


magenta 


6 
7 


-> 
-> 


cyan 
blanc 



CALL DOCSPRITE", 12, 100,100, COUL) 



Exemples programmés 



'-EXEMPLE DE PROGRAMME AVEC £ 



40 LDCATE - 



CHARGEMENT ROUTINE 



) A*»"Q0O0OOOOOOO000OOOi:!ÙO781EB5A103COO3C001B0ÙOOa00OO00(X>QOOOOOOOO0OO' 

i Bi=''ooooooiio.:.ooc4ai2ùC30024ûoisoo3C(:!i:!TC..ioiBoo-v «■,,-. .m,. ,0000000000000' 

i c*=' , ooooo«iv)O l JOù.;M;i^,ooocK-K:v-,60o i J9oi-cQô7Ciaii3[i , i.v-)or!,KM'i l) i-.ooooooooocioooo i 

• D*="01B001B00TC00.3Ci:-:.-C'>v>:'E00F|;i>.:)FFOlFFeiFFB21B4i ) ia6E3C7E3C7E7e7E7E7 l 

- 1 NI T I AL I SflT I ON 

-DES FORMES 

Eu :■ 



• — 




-INIT 


CALL 


[X. 


"SPRI 


CALL 


l:-1l 


"SPRI 


CALL 


nn 


"SPRI 


CALL 


U<J 


"SPRI 


1 







CflU 


nn 


"SPRI 


CALL 


DU 


11 SPR I 








CALL 


du 


"SPRI 


CALL 


DO 


" SPR I 








COLL 




"SPRI 


CALL 


DO 


"SPRI 








CALL 


un 


"SPRI 


CALL 


L>L) 


"SPRI 



"W3333"! 
IGNNE SPRITE5— 
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CALL 


nn 


"SPRITE". 6, 0,90) 


4 7 O 
480 


CALL 


DU 


SPRITE", 6, 1,60) 








4«v> 


CALL 


nn 


'SPRITE", 7,0) 


500 


CALL 


du 


'SPRITE",7,1> 


310 














52i.i 


CALL 


un 


■SPRITE", B,0) 


:,.■:.» 














540 


CALL 


nu 




550 


PRIN 






360 










570 


CALL 


l)m 


■SPRITE", 11, 0,1, CHOC! 


380 


IF CHGC= 


1 THEN GOSUB 610 


590 


GOTO 






610 






EXPLOSION 




CALL 


SPEECH ( "B.OOBOFF" > 


630 


PAUSE 




610 


RETURN 
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EXELVOX 



Adeptes de la synthèse de ta parole, préparez vos 
oreilles aux douces mélodies du synthétiseur de 
parole. Il aura fallu quatre ans pour que vous 
puissiez profiter de la synthèse vocale. 
Remarquez, vaut mieux tard que jamais. Le 
programme utilitaire VOX, ne se trouve pas sur la 
K7 livré avec Exelement Vôtre mais vous pourrez 
le télécharger dans le courant du mois de 
Septembre. Sans plus attendre, les spécifications 
du programme. 



Chargement 

Tout comme le programme SPRITE, VOX 
s'utilisera avec le BASIC et les différentes 
fonctions seront appelées par une séquence 
CALL DO ("VOX". liste de paramètres). Of course, 
vous devrez charger au préalable le dit programme 
par un généreux mais non moins gourmand CALL 
LOAD ("VOX"). 



Les différentes fonctions 

Format gén éral d'appel 

CALL DO ("VOX", parai, para2, para3, [para4, paraS, para6....paran]) 

parai = numéro de fonction 



Parai 


Effet 


40 


Chargement de mot dans la liste des mots 


41 


concanétation des parties de mots dans la zone 
de travail 


42 


Valeur d'un paramètre 


43 


modification de la valeur d'un paramètre 


45 


Stokage dans l'Exelmémoire du mot en cours 
d'édition 


46 


Remise à zéro de la zone de travail 


47 


Remise à zéro de la liste des mots 


48 


synthèse vocale de la zone de travail 
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Principes de fonctionnement 

VOX permet de concaténer, de modifier des mots de synthèse vocale contenus dans la ROM T61 00 de 
l'Exettel ou d'un mot contenu dans un fichier .VOX. Le principe de fonctionnement est relativement 
simple : on sélectionne un mot de la ROM T 6100 ou un fichier .VOX et on le charge dans le VDP. Les 
mots sont alors arrangés dans une zone mémoire, une liste de mots est alors disponible, chacun étant 
affecté d'un indice ( de à n). Chaque mot peut alors transféré dans la zone de travail (en RAM CPU). Le 
travail de segmentation, de modification peut alors être entrepris. 



CRAM : fichier .VOX 



TOC.VOX 



Zonedetrvall(RAMCPU) 



Liste des mots 



Structure d'une frame 



Concaténation des 

mots : 

mot + mot 1 = X trames 



L 


P | K1 


K2 || 


B K4 


K5 


K6 


K7 






K10 


K8 


K9 










■ 



Une frame est un échantillonage de 12 paramètres pour une durée de 25 millisecondes de synthèse 
vocale dont les plus importants sont l'Energie (E)et le Pitch (P). 
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En fait, tout le principe de VOX est basé sur la concaténation de mots et la modification de la valeur des 
paramètres des différentes frames associées. Le mot ou les mots dont vous désirez modifier la prosodie, 
quoique prosodie soit pris ici dans un sens large, sont concaténés dans la zone de travail, puis, à l'aide de 
fonctions de découpage, les différentes frames sont isolées et modifiées. 

Un exemple 

Nous allons segmenter le mot diviser pour obtenir le mot viser. Dans un premier temps, le mot diviser 
est chargé dans la liste des mots. 

100 CALL LOAD {"VOX") 

110 CALL DO ("VOX", 40, 0, 15, RANG) 

Paramètres mis en jeu : 40 -> numéro de fonction 

-> chargement à partir de la T61 00 
1 5 -> numéro d'ordre de diviser dans la T61 00 
RANG retourne la position dans la liste des mots 
120 CALL DOrvOX", 46) 

Remise à zéro de la zone de travail (RAM CPU) 
130 CALL DO ("VOX", 41, 0) 

Paramètres mis en jeu: 41 -> numéro de fonction 

-> numéro du mot dans la liste du buffer RAM VDP 
140 CALL DO ("VOX", 48, NFRAME) 

Synthèse vocale de la zone de travail et récupération du nombre de FRAMES composant le 

résultat de la concaténation. 
150CALLDO("VOX",46) 

Remise à zéro de la zone de travail. Nous connaissons maintenant le nombre de frames composant 

le mot DIVISER. Nous pouvons à présent découper le mot. Supposons que le mot comporte 30 

frames. 
160 DEBUT=0: FIN = 30 
170 INPUT "FRAME DEBUT:";DEBUT 
180 IF DEBUT=FIN THEN 170 
190 INPUT "FRAME FIN:";FIN 
200 IF FIN >30 THEN 190 
210 CALL DO ("VOX", 41,0, DEBUT, FIN) 
220 CALL DO ("VOX", 48, NFRAME) 
230 INPUT "ENCORE 0/N:";Y$: IF Y$="0" THEN 220 
240 INPUT "STOCKAGE SOUS -VOX 0/N:";Y$ 
250 IFY$="N"THEN150 
260 CALL DO("VOX", 45,"VISER") 
270 ISUITE 

Cette partie de programme permet de découper par tâtonnement de mot DIVISER. Une fois que vous 
êtes satisfait du résultat, vous pouvez entreprendre la modification des paramètres des frames. Vous 
avez certainement remarquer que la zone de travail (RAM CPU) est constamment mis à zéro pour éviter de 
concaténer les mômes mots. 

Il est très important de remettre à zéro la zone de travail en RAM CPU. En effet, la fonction 41 concatène 
les données avec ceelles contenues dans la zone de travail. Si nous n'avions pas mis à zéro cette zone 
de travail nous aurions chaîné plusieurs parties de mots et le résultat aurait été pour le moins surprenant. 
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Modification des paramétres 

300 CALL DO ("VOX", 47) 

remise à zéro de la liste des mots dans le butter en RAM VDP 
310 CALL DO("VOX", 40,1 ."VISER", RANG) 

Paramètres mis en jeu 40 •> numéro de fonction 

1 -> chargement à partir de l'Exelmémoire 
VISER « nom du fichier sur Exeimémoire 
RANG retourne la position dans la liste de mots 
320 CALL DO ("VOX", 46) 

Remise à zéro de la zone de travail en RAM CPU 
330 CALL DO ("VOX", 41 , 0, DEBUT, FIN ) 

Paramètres mis en jeu : 41 -> numéro de fonction 

-> numéro d'ordre dans la liste de mot 
DEBUT numéro frame début 
FIN numéro trame fin 
340 CALL DO ("VOX", 42, DEBUT.O.VALEUR) 

Paramètres mis en jeu: 42 ■> numéro de fonction 
DEBUT numéro de frame 
-> numéro du paramètre (ENERGIE) 
VALEUR retourne la valeur du paramètre ENERGIE 
350 CALL DO("VOX*\ 43, DEBUT, 0, VALEUR-1 ) 

Paramètres mis en jeu: 43 -> numéro de fonction 
DEBUT numéro de frame 
-> numéro du paramètre (ENERGIE) 
VALEUR-10 nouvelle valeur du paramètre ENERGIE 

Nous venons de modifier la valeur du paramètre ENERGIE. Pour mémoire les différents paramètres 
portent les numéros suivants : Energie = 0, Pitch - 1, K1 - 2, K2 «= 3, ... MO =11. En fait, les paramètres 
ENERGIE et PITCH ont vraiment une réelle importance. 

Vous pouvez donc modifier tous les paramètres, mais, attention, une trop forte variation du Pitch et / ou 
de l'Energie entraîne des résultats médiocres. L'ENERGIE correspond au volume de de la synthèse et le 
PITCH représente la fréquence de la synthèse. Cf Exelement Vôtre n° 1 . 

ATTENTION : pour utiliser VOX, il faut impérativement disposer d'une Exeimémoire. 



BON COURAGE ET BONNE 
CONTINUATION A TOUS 
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